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FOREWORD 


This  is  the  final  report  for  a  comprehensive  study  on  damage  tolerance  properties  of 
notched  composite  laminates  under  the  Air  Force  Grant  AFOSR-84-0334.  The  grant  was 
awarded  to  Dr.  A.  S.  D.  Wang  of  Drexel  university  with  the  initial  grant  period  covering  from 
30  September  1984  to  31  December  1986.  However,  during  the  period  from  1  September 
1986  to  31  August  1987,  Dr.  worked  at  the  AFOSR  as  visiting  scientist  under  the 
Intergovernment  Personnel  Loan  Program;  Dr.  C.  W.  Lau  then  served  as  an  interim  principal 
investigator,  with  the  termination  date  of  the  grant  extended  to  31  December  1987. 

The  research  was  performed  by  Dr.  A.  S.  D.  Wang  and  his  assistants:  Dr.  E.  S. 
Reddy,  Drexel  University  post-doctoral  fellow.  Dr.  W.  Binienda  and  Mr.  Y.  Zhong,  Drexel 
University  graduate  students. 

Major  David  A.  Glasgow  and  Lt.  Col.  George  K.  Haritcs  of  AFOSR  served 
successively  as  technical  monitors  during  the  course  of  this  research. 
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INTRODUCTION 


Objectives  of  Research. 

The  main  objective  of  this  research  is  to  investigate  matrix-related  damage 
mechanisms  in  composite  laminates  that  have  a  through-the-thickness  line-notch  or  a  small 
hole.  A  computer  simulation  methodology  is  then  developed  to  describe  the  modes  and  the 
extent  of  damage  growth  caused  initially  by  the  presence  cf  the  notch  (or  hole),  and 
subsequently  by  the  damages  themselves. 

Theoretical  Approach. 

The  theoretical  approach  taken  in  this  endeavor  followed  the  principles  of 
micromechanics  and  the  mechanics  of  brittle  fracture  at  the  descriptive  level  considered 
valid  for  the  so-called  ply-elasticity.  Namely,  the  laminate  is  basically  treated  as  a 
3-dimensional  elastic  solid  which  is  made  of  distinctly  anisotropic  layers.  While  each  layer  is 
assumed  homogeneous  and  endowed  with  a  set  of  effective  elastic  constants  (see,  e.g.  [1]), 
brittle  fracture  can  initiate  and  propagate  within  any  layer  having  a  weaker  axis  of  material 
anisotropy,  and  within  any  one  of  the  weaker  layer  interfaces  due  to  the  3-dimensional 
interlaminar  stresses. 

Since  the  propagation  modes  and  the  growth  behaviors  between  fracture  in  a  layer 
and  fracture  in  a  layer-to-layer  interface  differ  fundamentally  owing  to  the  particular 
microstructure  of  the  laminate,  growth  of  damages  in  the  form  of  sublaminate  cracks 
constitute  a  load-time  dependent  evolutionary  process.  The  general  premise  of  ply-elasticity 
and  theory  of  brittle  fracture  on  which  a  simulation  modei  is  based  has  recently  been 
discussed  in  detail  by  Wang  [2]. 

Crack  Growth  Simulation. 

With  laminates  having  a  through-the-thickness  line-notch  or  a  small  hole,  stress 


concentrations  and  hence  sublaminate  damages  near  the  notch  (or  hole)  are  expected 
when  the  laminate  is  loaded  by  externally  applied  load.  In  order  to  simulate  the  damage 
initiation  and  damage  growth  as  a  function  of  the  applied  load,  a  3-dimensional  analysis  of 
the  stress  field  near  the  notch  or  hole  must  be  first  performed.  Such  a  stress  field,  however, 
contains  regions  of  stress  concentration  caused  not  only  by  the  notch  (or  hole)  itself  in  the 
usual  sense,  but  also  by  the  interaction  of  the  free  edges  of  the  notch  (or  hole)  with  the  layer 
interfaces  known  as  free-edge  effect  [3j. 

In  addition,  if  one  or  more  sublaminate  cracks  have  already  initiated  near  the  notch 
(or  hole),  the  stress  field  disturbed  by  the  presence  of  these  cracks  and  the  new  conditions 
for  these  cracks  to  grow  must  be  continuously  analyzed. 

Clearly,  to  effectively  analyze  such  a  complex  system  requires,  as  a  prerequisite,  an 
efficient  and  accurate  finite  element  computational  routine  on  one  hand,  and  a  set  of 
physically  consistent  material  conditions  that  govern  the  various  crack  growth  behaviors  on 
the  other.  Of  course,  the  finite  element  routine  must  be  developed  in  accordance  within  the 
basic  confines  of  ply-elasticity  and  the  theory  of  fracture  mechanics.  Similarly,  material 
conditions  governing  the  various  crack  growth  behaviors  must  be  determined  independent 
of  the  laminate  geometry,  both  in  its  overall  shape  and  its  lamination  structure. 

Finally,  the  simulation  methodology  must  be  validated  by  experiment  in  which  actual 
growth  of  sublaminate  damages  is  recorded  as  a  function  of  the  applied  load.  The  recorded 
damage  must  be  measured  in  quantity  units  consistent  with  those  simulated  numerically  so 
that  a  direct  comparison  between  the  two  can  be  made. 

Major  Tasks  Performed. 

Within  the  context  of  the  forgoing  discussions,  the  following  major  tasks  have  been 
performed  during  the  course  of  the  research: 

1.  Development  of  a  3-dimensional  finite  element  code  based  on 
ply-elasticity  and  the  linear  theory  of  fracture  mechanics.  The  code  is  capable 
of  simulating  the  initiation  and  growth  mechanisms  of  sublaminate  cracks 


expected  to  occur  in  certain  notched  laminates  when  they  are  specifically 
loaded. 


2.  Development  of  rigorous  solutions  based  on  anisotropic  elasticity  and 
fracture  mechanics  for  a  crack  problem  similar  to  that  anticipated  to  occur  in 
laminates  but  mathematically  tractable  without  compromising  accuracy.  The 
same  problem  is  then  analyzed  by  means  of  the  developed  finite  element 
code.  Comparison  of  results  from  the  two  independent  solution  methods 
adjudicates  the  general  accuracy  of  the  finite  element  method. 

3.  Experiment  to  establish  material  conditions  that  govern  the  initiation  and 
growth  behaviors  of  the  kinds  of  cracking  anticipated  to  occur  in  notched 
laminates.  The  is  accomplished  by  testing  a  family  of  specially  designed 
specimens  in  which  the  anticipated  cracking  occurred,  and  by  simulations  of 
the  observed  cracking  using  the  developed  finite  element  code. 

4.  Validation  of  the  simulation  method  by  testing  actual  laminates  that  have 
through-the-thickness  line-notches  or  small  holes.  Comparisons  are  then 
made  between  the  test  results  and  the  simulation  results,  which  display  the 
adequacy  and/or  limitations  of  the  simulation  methodology. 

In  the  next  section,  specifics  in  each  of  the  tasks  are  discussed  in  more  detail  along 
with  highlights  of  the  results  obtained  therein.  The  actual  results  and  the  manner  in  which 
these  results  are  obtained  have  been  reported  in  open  literature.  Four  full-length  papers  and 
one  computer  code  with  user's  guide  are  appended  to  this  report  for  reference. 

The  last  section  outlines  a  set  of  concluding  remarks  pertinent  to  the  major  themes  of 


this  research. 


SPECIFIC  TASKS  AND  RESULTS 


3-D  Finite  Element  Code. 

As  mentioned,  the  finite  element  code  is  developed  on  the  basis  of  ply-elasticity  and 
the  theory  of  linear  fracture  mechanics.  Its  main  functions  are 

1.  To  compute  the  3-D  stress  field  in  a  laminate  of  given  lamination  structure, 
overall  laminate  shape,  manner  of  loading,  the  exact  geometry  and  location 
of  the  notch.  Because  of  the  expected  stress  concentrations  near  the  notch 
region,  the  code  is  capable  of  generating  the  desired  mesh  in  the  region 
around  the  notch.  The  computed  stress  field  provides  6  stress  components  at 
any  point.  In  general,  stress  distribution  on  any  specified  plane  can  be 
displayed  graphically  in  various  isometric  forms. 

2.  To  compute  the  strain  energy  release  rates  at  any  crack-tip  with  specified 
direction  of  propagation.  If  one  or  more  cracks  are  already  present  near  the 
notch,  the  code  can  compute  the  associate  stress  field  as  well  as  the  strain 
energy  release  rate  at  one  of  the  crack  tip.  In  cases  where  the  crack  may 
propagate  in  mixed-modes,  then  the  energy  release  rate  corresponding  to 
each  mode  can  also  be  calculated.  The  calculated  strain  energy  release  rates 
are  expressed  in  terms  of  the  appropriately  unit  for  the  applied  load. 

Input  data  required  to  run  the  code  include  the  geometry  for  the  overall  laminate 
specimen  shape,  the  applied  load  and  boundary  conditions,  the  laminate  stacking  sequence 
and  fiber  orientations,  the  etfective  elastic  constants  (including  thermal  expansion 
coefficients  if  appropriate)  for  each  of  the  laminating  layers  relative  to  their  respective 
principal  material  axes,  the  location,  size  and  orientation  of  the  notch,  and  the  suspected 
matrix  crack  or  delamination  near  the  notch. 

Appendix  V  contains  the  user's  guide  in  which  a  considerable  detail  about  the  code 
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is  discussed.  To  help  run  the  code,  illustrative  examples  are  provided  with  explanations  and 
actual  input  /output  results.  A  list  of  the  source  code,  written  in  Fortran-IV,  is  also  included. 

Assessing  the  Accuracy  of  the  Finite  Element  Method. 

As  the  developed  finite  element  code  is  to  be  used  to  compute  both  the  stress  fields 
and  the  fracture  quantities  for  small  cracks  in  layered,  anisotropic  solids,  an  ebon  is  made  to 
assess  the  numerical  accuracy  the  code  can  provide.  To  this  end,  a  problem  of  an  ideal 
overall  configuration  and  loading  condition  is  treated  rigorously  on  the  basis  of  the 
anisotropic  theory  of  elasticity  and  fracture  mechanics. 

The  specific  problem  treated  is  a  unidirectional  laminate  of  infinite  domain  as 
illustrated  in  Figure  1.  The  laminate  contains  initially  a  kink  crack  and  is  loaded  in  uniform 

tension  applied  on-axis,  making  an  arbitrary  angle  0  with  the  fibers.  The  base  of  the  kink 
crack  is  normal  to  the  applied  tension  while  the  kink  itself  is  in  the  fiber  direction.  Thus,  the 
problem  is  one  that  involves  self-similar,  mixed-mode  fracture  at  the  kink  tip.  Within  the  frame 
work  of  elasticity  theory  and  linear  fracture  mechanics,  the  problem  can  be  formulated 
exactly  and  solved  rigorously  by  means  of  singular  integrals  and  the  boundary  collocation 
method. 

Solutions  to  this  rigorously  formulated  problem  serve  as  branch  mark  from  which  the 
finite  element  solutions  can  be  compared.  As  it  turns  out,  it  is  possible  to  tune  the  finite 
element  shape  and  mesh  selections  in  order  to  yield  as  accurate  numerical  results  as  the 
rigorous  solutions. 

Detailed  development  of  this  effort  has  been  published  in  the  paper  entitled  "Fracture 
due  to  A  Kink  Crack  in  Unidirectional  Fiber  reinforced  Composites."  This  paper  is  appended 
here  as  Appendix  I. 

Establishing  A  Mixed-fviode  Fracture  Criterion. 

Another  essential  element  in  the  prese'  ;  effort  to  simulate  mixed-mode  sublaminate 
crack  is  to  ascertain  the  material  condition  under  which  the  crack  propagates.  The  problem 
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is  complicated  by  the  fact  that  fracture  of  different  modes  often  involves  different  mechanisms 
at  the  microscale,  which  in  turn  result  in  different  material  conditions  for  propagation.  For 
fracture  propagating  in  arbitrary  combination  of  modes,  a  general  set  of  conditions  is  need. 
This,  however,  is  not  always  possible  without  actually  specifying  the  material. 

In  the  present  work,  the  AS4-3501-06  graphite-epoxy  composite  system  is  used  in  all 
experiments  and  simulations.  To  establish  the  desired  mixed-mode  fracture  criterion  for 
matrix  cracks  in  this  material,  a  test  specimen  is  designed  which  can  yield  crack  propagation 
under  28  different  mixed-mode  conditions.  The  test  specimen  is  shown  in  Figure  2. 

It  is  an  off-axis  unidirectional  tensile  coupon  with  a  pair  of  side  notches  cut  normal  to 
the  applied  tension.  At  the  critical  loading,  a  kink  crack  is  initiated  at  one  the  notch  tips  and  is 

propagated  along  the  fiber  direction  in  mixed-mode.  By  varying  the  off-axis  angle  6  and  the 
notch  depth,  the  nature  of  the  mode-mix  as  well  as  the  critical  conditions  can  thus  be  altered. 

Correlation  between  experiment  and  finite  element  analysis  concludes  that  a  useful 
criterion  governing  mixed-mode  fracture  in  this  material  appears  to  be  the  total  strain  energy 
release  rate  that  exists  at  the  crack  tip. 

The  details  of  this  subject  have  been  included  in  the  paper  entitled  "A  Criterion  for 
Mixed-Mode  Matrix  Cracking  in  Graphite  Epoxy  Composites."  This  paper  is  appended  here 
in  Appendix  II. 

Simulation  of  Matrix  C^cks  in  Notched  Laminates. 

For  simulation  of  matrix  crack  growth  in  laminates,  the  graphite-epoxy  (AS4-3501-06) 
[02/902]s  laminate  coupon  is  chosen.  The  dimension  of  the  actual  coupon  is  1"  wide  and  9" 

long;  it  is  notched  in  two  different  forms:  (a)  a  pair  of  side  notches  and  (b)  a  small  center 
hole.  The  applied  load  is  uniaxial  tension.  Under  the  applied  loading,  both  in-ply  matrix 
cracks  and  interply  delaminations  are  expected  to  occur  and  grow  with  the  increasing  load. 
In  particular,  these  cracks  can  occur  interactively.  It  should  also  be  emphasized  that  in  all 
cases  the  resulting  sublaminate  cracks  propagate  in  mixed-modes  of  various  degree  of 
mode-mix. 

Evolution  of  the  matrix  cracks  and  delamination  in  the  specimen  is  both  recorded  in 
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experiment  and  simulated  independently  by  the  finite  element  routine. 

Resuits  from  this  pan  of  the  study  have  been  reported  in  two  papers  entitled 
"Three-Dimensional  Simulation  of  Crack  Growth  in  Notched  Laminates,"  and  "Simulation  of 
Matrix  Cracks  in  Composite  Laminates  Containing  A  Small  Hole."  These  papers  are 
appended  here  us  Appendix  II  and  Appendix  IV,  respectively. 

CONCLUSIONS 

In  this  research  program,  a  simulation  method  is  developed  to  describe  the  evolution 
of  matrix  cracks  in  the  vicinity  of  notches  in  composite  laminates.  The  method  is  based  on  a 
generic  approach  of  the  problem  in  which  actual  cracking  mechanisms  are  closely  modeled. 
Still,  these  mechanisms  are  extremely  complex  and  the  simulation  has  to  resort  to  some 
degree  of  idealization.  This  then  causes  discrepancies  between  the  simulation  and 
experiment,  as  is  evident  by  the  results  reported  in  the  papers  appended  herein.  It  is 
conceivable  that  these  difficulties  could  be  considerable  removed  if  more  is  known  about  the 
interactive  mechanisms  of  the  various  cracks  at  the  microscopic  scale  and  if  a  more  realistic 
simulation  technique  becomes  available. 
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ABSTRACT 

This  paper  presents  an  analysis  for  a  kinked  crack  in 
a  unidirectionally  fiber  reinforced  composite  plate.  The 
plate  is  assumed  infinite  and  contains  a  through-thickness 
crack  of  initial  length  L-j .  which  makes  an  angle  0  with  the 
direction  of  fibers.  When  the  plate  is  subjected  to  a  tar-field 
uniform  tensile  stress  normal  to  the  crack,  the  crack  can 
only  propagate  in  the  preferential  direction  of  fibers  due  to 
the  weak  strength  of  the  fiber-matrix  interface.  The  result  is 
a  kinked  crack  propagating  in  mixed  mode,  with  the  degree 
of  modal  mixture  depending  on  the  angle  0  and  the  ratio 
between  the  length  ot  the  kink  l_2  and  the  length  of  the 
initial  crack  L-). 

To  determine  the  parameters  relevant  to  mixed¬ 
mode  fracture  at  the  tips  of  the  kinked  crack,  the  problem  is 
formulated  in  terms  of  singular  integral  equations  with 
generalized  Cauchy  kernels.  The  resulting  system  of 
equations  is  then  solved  numerically  employing  a  Gaussian 
quadrature  and  the  collocation  method.  Stress  intensity 
factors,  k1  and  k2,  and  the  strain  energy  release  rates,  G| 
and  G([,  of  the  kinked  crack  are  obtained  (or  various  values 
of  0  and  L2/L1  ratios. 

1.  INTRODUCTION 

Failure  in  fiber  reinforced  polymeric  composites 
frequently  occurs  in  the  torm  of  matrix  cracks  due  to  weak 
fiber/matrix  interface  strength.  Depending  on  the  local  fiber 
geometry,  a  matnx  crack  may  propagate  in  the  preferential 
fiber  direction  under  mi  red-mode  conditions.  Invariably,  the 
relevant  tracture  parameters  which  govern  matrix  crack 
propagation  are  dominated  by  the  anisotropic  properties  of 
the  material.  This  makes  it  necessary  to  formulate  an 
anisotropic  enterion  tor  fracture  propagation. 

Within  the  frame  work  of  the  original  Griffith  theory 
for  bnttle  fracture,  a  number  of  mixed-mode  crack 
propagation  criteria  have  been  used  tor  vanous  types  of 


materials,  including  fiber  reinforced  composites  [1-6].  Sih 
[5,6],  for  example,  proposed  a  criterion  based  on  the  local 
strain  energy  density.  Others  have  used  entera  in  the 
general  form  of  1(k|,k(|)=keff.  In  the  experiment  by  Wu  [3], 
who  tested  notched  balsa  wood  and  unidirectional  fiber 
glass  reinforced  composite  piates,  the  fracture  criterion 
(k|/k|c)+(k||/k||c)2=1  was  shown  to  apply. 

In  a  series  of  recent  papers  by  Wang,  Crossman,  et. 
al.  [7-10],  the  critical  energy  release  rate  G|C  was  used  as  a 
criterion  for  the  initiation  and  propagation  of  mode  l  cracks 
in  multi-layered  laminates.  When  the  crack  is  blunted  by  a 
local  fiber  or  layer  interface,  the  crack  would  kink  and  a 
mixed-mode  or  shear-dominated  fracture  would  result.  In 
this  case,  the  total  critical  energy  release  rate  (Gy)c  has 
been  employed  as  a  criterion  [1 1], 

Regardless  of  the  form  of  the  fracture  criteria,  it  is 
essential  to  treat  the  crack  conditions  correctly  and 
determine  the  associated  fracture  parameters  accurately. 

Fracture  problems  in  homogeneous  anisotropic 
materials  have  been  rigorously  studied,  see  e  g.  [12-15]. 
But  for  fracture  in  tibrous  composites,  material 
inhomogeneity  and  the  associated  microstructure  often 
prevent  an  analytical  solution.  A  numerical  technique  such 
as  the  tinite  element  method  is  employed,  without  a 
rigorous  interogation  of  the  fracture  conditions  near  the 
crack  tip. 

This  paper  treats  a  kinked  crack  in  a  unidirectionally 
fiber  reinforced  composite  plate.  The  plate  is  assumed  to 
contain  a  through-thickness  crack  of  initial  length  Lj,  which 
makes  an  angle  0  with  the  direction  ot  tibors.  When  the 
plate  is  subjected  to  a  uniform  (ar-field  tensile  stress  normal 
to  the  crack,  the  crack  can  only  propagate  m  the  direction  ot 
the  fiber  because  of  the  weak  strength  of  the  liber-matrix 
interface.  Thus,  a  kinked  crack  is  induced  propagating  in 
mixed  mode.  Clearly,  the  nature  of  the  propagation 
depends  on  the  kink  angle  0,  the  lengths  ot  the  kink  l_2  and 
the  main  crack  . 

To  determine  the  parameters  relevant  to  mixed- 
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mode  fracture  at  the  tips  of  the  kinked  crack,  first  the 
problem  of  two  separate  cracks  embedded  in  an  infinite 
orthotropic  plate  is  considered.  Namely,  one  crack  is  the 
main  crack  of  length  and  the  second  crack  of  length  Lg  is 
assumed  to  lie  along  the  direction  of  fibers.  The  line  of  1-2 
intersects  the  line  of  L-)  at  the  origin  of  the  x-y  coordinates 
as  shown  in  Figure  1 .  Using  the  crack  surface  derivatives  as 
unknown,  the  problem  is  formulated  on  the  basis  of  two- 
dimensional  theory  of  elasticity  and  the  field  equations  are 
expressed  in  terms  of  singular  integrals  with  Cauchy  type 
kernels.  The  system  of  integral  equations  is  then  solved 
numerically  by  employing  a  Gaussian  quadrature  and  the 
collocation  method. 

Next,  the  actual  kinked  crack  is  considered.  This  is 
accomplished  by  letting  the  approaching  tips  of  the  kink  and 
the  main  cracks  to  touch  each  other  at  the  intersect  of  the 
two  crack  lines.  In  this  configuration,  the  singular  integral 
equations  are  still  valid  but  some  of  the  kernels  become 
singular,  giving  rise  to  generalized  Cauchy  kernels.  In  fact, 
it  is  shown  that  at  the  point  of  touch  the  stresses  are 
singular  and  the  power  of  singulanty  is  different  from  t/2. 
Thus,  for  the  kinked  crack  geometry,  a  set  of  singular 
integral  equations  with  singular  kernels  is  solved.  Stress 
intensity  factors.  k1  and  kg,  and  strain  energy  release  rate 
components  G|  and  G||,  at  the  tips  of  the  kinked  crack  are 
obtained  for  vanous  values  of  6  and  Lg/L-|  ratios.  Note  that 
the  problem  of  the  plate  containing  only  the  main  crack 
corresponds  to  Lg-,0. 

2.  FORMULATION  OF  THE  PROBLEM 

As  stated  previously,  the  problem  at  hand  is  a 
kmked  crack  in  an  infinite  plate,  and  it  is  treated  first  by 
considering  two  separate  cracks  as  depicted  in  Figure  1. 
Let  the  plate  be  orthotropic  with  principal  directions  x-\  and 
y,.  The  far-field  uniform  tension  is  applied  in  the  direction  of 
yg  which  makes  angle  6  with  y^  The  main  crack  of  length 
Li  lies  on  the  xg  axis,  while  the  inclined  crack  of  length  Lg 
(the  future  kink)  lies  on  the  xt  axis  (which  is  the  direction  of 
the  fibers).  The  stress  fields  for  the  invidual  cracks  are  first 
solved,  and  the  stress  field  for  the  interacting  cracks  is  then 
obtained  by  superposition.  A  bnef  outline  of  the  solution 
procedures  is  given  below;  details  are  contained  in 
Reference  [16]. 


For  the  crack  parallel  to  the  fibers,  the  governing 
field  equation  is  expressed  in  terms  of  the  stress  function 
Fi(x-|  ,y  1 )  m  the  principal  coordinates  (x-|  ,y,): 


F.  a  F.  a  F. 

-♦Pa-rVP  t~o 
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aM  =  r 


at2  =  T 


a22  ~ 
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Ell.  ^TT*  GlT>  VLT  being  the  engineering  elastic  constants 
for  the  orthotropic  material. 

Fourier  transformation  of  the  stmss  tunction 

Ft  (x-j  ,y-j )  can  be  defined  as: 

(4> 

Substituting  equation  (4)  in  (1),  Oroniury  Differential 
Equation  (ODE)  with  constant  coeficients  is  obtained.  The 
solution  of  such  equation  can  be  expressed  as: 

■^(s.y,)  ~  e“SV’  (5) 

so  the  following  characteristic  equation  is  obtained: 

w4  -  P2  «2  +1=0  (6) 

The  roots  of  equation  (6)  are:  cut,  -cj-| ,  erg,  -u>g,  sucn  that 
Re(o>i)>0  and  Re((og)>0. 

Taking  into  consideration  the  fact  that  the  stress  and 
displacements  must  vanish  at  infinity,  the  stress  function 
may  then  be  written  as: 

+  ds,  y,  >  0 
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Using  the  continuity  of  stress  at  y^O  and  introducing  the 
following  crack  surface  displacement  derivatives  as  the  new 
unknowns, 
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the  stresses  may  be  expressed  as: 
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For  more  details  about  the  formulation  one  may  refer  to  [I6j. 


Ri/a(y  Rts^y 

'  y2(a-ib)  -  x2)  +  y2(c-id)  -  i^-  x2)  ]dt2  < 1 7> 


.  1  f[W 
2n  J  ^  y2(a+ib)  +ii 


^18^4^)  +  Rl/4^)  ~R20^3^) 

*  y2(c+id) +i(V  x2) 


In  this  configuration  the  crack  is  assumed  to  lie 
along  the  *2  axis.  For  a  formulation  using  the  X2~y2 
coordinate  system  the  material  has  to  be  taken  as  fully 
anisotropic,  giving  the  following  governing  equation  in 
terms  of  the  Airy  Stress  Function  F2(X2,y2>: 
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b,|  =  a)1cos  0 +(2a)Z+ a66)sinz8  cos2  0  .  a22sin  0 
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b)6  =  [a22sin  0  -  a()cos  0  +  ^<2a12+ a66)cos20 ] sin20 
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Again  following  the  same  procedure,  the  stress  can 
be  expressed  in  terms  of  the  crack  displacement  derivatives 
f3(t2)  and  <402)  as  follows: 
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and  Rj  i=1,2,...24  are  given  in  [16],  Here  it  must  be  noted 
that  the  formulation  leading  to  expressions  (16)-(18)  is  quite 
lengthy  and  tedious.  The  intermediate  steps  can  be  found  in 
[16]. 


Stress  field  for  two-crack  system  is  generated  by 
superimposing  the  two  solutions  briefly  ^scribed  in  two 
previous  sections.  It  is  noted  that  the  stresses  are  given  in 
different  coordinate  systems.  Therefore  the  following 
coordinate  transformations  are  used: 

x2-x,  cos0  -  y,  sin8  ^i) 

y2  =  x,  sine  +  y,  cos8 


x,  -  x2cos0  +  y2sin8 

(22) 

y,  --x2sin0  +  y2cos0 

The  total  solution  for  the  stress  field  can  be 
expressed  in  either  (x^.y^)  or  (X2,y2>-  Let  superscript  (T)  bo 
used  to  denote  the  total  stresses  in  either  system.  To  satisfy 
the  boundary  conditions  along  y2=0  and  y1=0  we  may 
write: 
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By  means  of  a  normalization  procedure  by  substituting  the 
following: 
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(23)  and  (24)  lead  to  the  following  system  ol  Cauchy  type 
singular  integral  equations: 
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These  equations  must  be  solved  with  the  following  single- 
valuedness  conditions  which  complete  the  formulation  of 


the  problem: 
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dx,  =  0 


dx2  =  0 


dx2  =  0 


The  expressions  for  the  kernels  Kij  are  functions  of  material 
constants  and  crack  geometry  [i  6], 

The  system  of  integral  equations  (27-34)  can  be  solved  by 
using  one  of  the  Gaussian  quadrature  technique  [17], [18],  It 
should  be  noted  that  this  system  of  integral  equations 
contain  Cauchy  type  kernels,  so  the  stress  and  strains  will 
have  a  square-root  singularity  and  one  may  therefore  use 
the  classical  definition  of  stress  intensity  factors  to  evaluate 
them  at  the  crack  tips  [1 2-1 4], 


The  geometry  of  interest  is  that  of  a  kinked  cracked 
We  can  arrive  at  that  configuration  by  letting  xb=0  and  xc=0. 
In  this  case  the  integral  equations  (27-30)  remain  valid  but 
some  of  the  kernels  become  singular  while  approaching  the 
tips,  giving  rise  to  a  singularity  of  unknown  power  p  at  the 
apex.  The  singularity  p  can  be  derived  by  requiring  the 
displacements  of  common  end  to  match  what  giving  the 
following  transcendental  characteristic  equation: 
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For  the  details  ol  the  derivation  and  definition  of  Ak)  and 
Cmn  one  may  again  refer  to  [16]. 

For  the  same  reason  two  conditions  from  (31-34)  are 
replaced  by: 
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The  singular  integral  equations  have  generalized  Cauchy 
kernels  and  may  be  solved  by  using  a  Gauss-Jacobi  [17] 
or  Lobatto-Jacobi  quadrature  technique  [22].  The  stress 
intensity  factors  at  the  crack  tips  can  again  be  derived  using 
their  classical  definitions. 


From  the  fracture  point  of  view,  perhaps  the  most 
important  physical  quantity  is  the  strain  energy  release  rate 
G.  Using  the  usual  definition  [26],  it  can  be  written  that: 

G-^(U-V)  (38) 


at  x=x<j,  we  may  write: 

^♦d« 


dU  -  dY  =  1 1  |  <ry]V|(x,,0)[  v(xr  da.°+)  -  v(X,-  da,0')] 

*  Tx,Vl(xi'°)[  u(xf  da-0+)  -  U(xrda(0')]jdx,  (39) 

The  expressions  of  normal  and  shear  stresses  can  be  found 
using  definition  for  stress  intensity  factors.  Thus, 
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To  obtain  the  asymptotic  expressions  for  [u(x-|,0+)  -  u(x-j ,0')] 
and  [v(x i  ,0+)  -  v(x-|,0')],  we  can  use  equations  (8)  and  (9). 
Following  the  procedure  of  derivation  as  in  [27,28],  it  can  be 
shown  that : 
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and  G  =  G|  +  G|| 

For  all  the  details  one  may  refer  to  (16j. 


3.  RESULTS  AND  DISCUSSION. 

The  important  results  are  those  pertaining  to  the 
kinked  crack  case.  Here  for  conciseness  only  this  case  is 
studied  in  details.  To  determine  the  stress  intensity  factors 
one  must  first  obtain  the  singularity  p  by  solving  equation 
(35),  so  certain  material  properties  of  orthotropic  plate  have 
to  be  used.  The  singularity  p  for  an  isotropic  wedge  is  given 
in  [19],  Similiar  results  are  reported  for  an  orthotropic 
wedge  in  [20]  and  [21],  The  numerical  values  of  p  obtained 
from  equation  (35)  for  the  special  cases  of  isotropic  and 
orthotropic  materials  compared  closely  with  those 
computed  in  [19-21],  Figure  2  shows  the  variation  of  the 
stress  singularity  power  (-p)  with  the  angle  0  for  an  isotropic 
an  orthotropic  material.  For  the  orthotropic  case  the  material 
properties  are  listed  in  Table  1 . 

As  expected  for  0=0  (i.e.  for  a  half  plane)  there  is  no 
singularity  (psO)  and  the  singularity  increases  with 
increasing  wedge  angle.  The  value  of  p  must  eventually 
reach  the  value  -0.5  (the  well-known  square-root 
singularity)  for  a  crack  (i.e.  when  0=180°).  It  is  interesting  to 
note  that  for  some  orthotropic  materials  the  stresses  may 
not  be  singular  even  if  the  wedge  angle  is  larger  than  1 80°. 

The  stress  intensity  factors  are  obtained  by  solving 
equations  (27-30)  in  conjunction  with  equations  (36)  and 
(37).  Since  the  integral  equations  have  generalized  Cauchy 
kernels,  the  collocation  methods  described  in  [17]  and 
[22,23]  are  used.  In  the  results  given  subsequently,  the 
stress  intensity  factors  are  normalized  with  respect  to  the 

uniaxial  load  Oo  and  the  square-root  of  their  respective  half 
crack  length.  To  check  the  accuracy  of  the  technique  the 
results  are  first  compared  with  the  solutions  of  special  cases 
that  exist  in  the  literature.  Table  2.  shows  the  comparison  of 
the  mixed-mode  stress  intensity  factors  at  the  tips  of  a 
kinked  crack  embedded  in  an  infinite  isotropic  plate  with 
those  found  in  [24-25]. 

As  one  may  infer  from  the  Table,  the  results 
compare  rather  well.  The  stress  intensity  factors  at  the  tips 
of  a  kinked  crack  are  given  in  Figures  3-6.  Figures  3  and  4 
show  the  variation  of  the  normalized  stress  intensity  factors 
with  respect  to  crack  length  ratio  L2/L1  whereas  Figures  5 
and  6  display  the  same  results  with  respect  to  the  angle  0. 
Results  are  obtained  for  orthotropic  as  well  as  isotropic 
materials. 

It  is  seen  that  (Figures  3  and  4)  for  a  fixed  angle  0, 
normalized  k-j  (d)  and  k2(d)  decrease  with  increasing 
L2/L1,  however  the  strain  energy  release  rates  increase 
with  increasing  L2/L1  (Figures  7  and  8).  So  there  is  a  very 
small  chance  for  crack  arrest,  as  it  is  ilustrated  for  the  30° 
plate.  On  the  other  hand  for  varying  angle  0  (Figures  5  and 
6),  kl(d)  decreases  while  k2(d)  first  increases  then 
decreases  with  increasing  0.  For  this  case  total  strain 
energy  is  not  a  monotonous  function  of  0  (Figures  9  and 
10).  Thus  the  resistance  to  fracture  may  strongly  depend  on 
the  direction  of  reinforcing  fibers.  It  may  be  seen  that  (Figure 
9)  for  isotropic  materials  G  is  a  monotonically  decreasing 
function  with  increasing  0,  while  for  the  orthotropic  material 
used  in  the  calculations  (Figure  10),  G  first  decreases  then 


i 
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increases  due  to  strong  influence  of  mode-li  component  of 

the  strain  energy  release  rate. 

REFERENCES 

[1]  F.  Erdogan  and  G.C.  Sih,  "On  the  Crack  Extension  in 
Plates  Under  Plane  Loading  and  Transverse 
Shear",  Trans.  ASME,  J.  Basic  Engng.,  Vol.85,  pp. 
519-527, 1963. 

[2]  J.G.  Williams  and  P.D.  Ewing,  "Fracture  Under 
Complex  Stress  -  The  Angled  Crack  Problem",  Int.  J. 
Fracture,  Vol.9,  pp.  441-445, 1972. 

[3]  EM.  Wu,  "Application  of  Fracture  Mechanics  to 
Anisotropic  Plates",  Trans.  ASME,  J.  Appl.  Mech., 
Vol.  34,  pp.  967-974,  1967. 

[4]  B.  Cotierell,  “The  Influence  of  the  Stress  Distribution 
at  the  Tip  of  a  Crack",  fnt.  J.  Fracture,  Vol.  2,  pp.  526- 
533, 1966. 

[5]  G.C.  Sih,  ’Some  Basic  Problems  in  Fracture 
Mechanics  and  New  Concepts",  Engng.  Fracture 
Mech.,  Vol.  5,  pp.  365-377,  1973. 

[6]  G.C.  Sih,  "Strain  Energy  Density  Factor  Applied  to 
Mixed  Mode  Crack  Problems",  Int.  J.  Fracture,  Vol. 
10,  pp.  305-321,1974. 

[7]  A.S.D.  Wang  and  F.W.  Crossman,  "Initiation  and 
Growth  of  Transverse  Cracks  and  Edge 
Delamination  in  Composite  Laminates,  Part  1,  An 
Energy  Method",  J.Composite  Materials.  Vol.  4,  pp. 
71-87, 1980. 

[8]  F.W.  Crossman  and  W.J.  Warren,  A.S.D.  Wang  and 
G.E.  Law,  "Initiation  and  Growth  of  Transverse 
Cracks  and  Edge  Delamination  in  Composite 
Laminates,  Part  2,  Experimental  Correlation",  J. 
Composite  Materials,  Vol.  14,  pp.  88-106, 1960. 

[9]  A.S.D.  Wang,  "Growth  Mechanisms  of  Transverse 
Cracks  and  Ply  Delamination  in  Composite 
Laminates",  in  Advances  in  Composite  Materials, 
Proc.  ICCM-III,  pp.  170-182,  1980. 

[10]  A.S.D.  Wang,  "Fracture  Mechanics  of  Sub-Laminate 
Cracks  in  Composite  Laminates",  Proc.  AGARD 
Struct.  Matls.  Specialist  Meeting.  London,  1983. 

[11]  A.S.D.  Wang,  N.N.  Kishore  and  W.  Feng,  "On  Mixed 
Mode  Fracture  in  Off-Axis  Unidirectional  Graphite 
Epoxy  Composites".  ICCM-4,  Tokyo,  Japan,  1982, 

[12]  F.  Delale  and  F.  Erdogan,  "The  Problem  of  Internal 
and  Edge  Cracks  in  an  Orthotropic  Strip",  ASME, 
Journal  of  Applied  Mechanics,  Vol.  44,  pp. 237-242, 
1977, 

[13]  F.  Delale,  I.  Bakinas  and  F.  Erdogan,  "The  Problem 
of  an  Inclined  Crack  in  an  Orthotropic  Strip",  ASME, 


Journal  of  Applied  Mechanics,  Vol.  46,  pp.  90-96, 
1979. 

[14]  F.  Delale  and  F.  Erdogan,  "Bonded  Orthotropic 
Strips  wilh  Cracks",  Int.  J.  of  Fracture,  Vol.  15, 
pp.343-364, 1979. 

[15]  F.  Delale,  "Fracture  Analysis  of  Notched 
Composites",  ASME,  Journal  of  Engineering 
Materials  and  Technology,  Vol.  f  09.  pp.  27-35, 
1987. 

[16]  A.S.D.  Wang,  W.  Binienda,  Yu  Zheng  and  E.S. 
Reddy,  "Mixed  Mode  Fracture  ot  Uniaxial  Fiber 
Reinforced  Composites",  NADC  Technical  Report, 
April, 1987. 

[17]  F.  Erdogan,  "Mixed  Boundary- Value.-  Problems  in 
Mechanics",  Mechanics  Today,  edited  by  S.  Nemat- 
Nasser,  Vol.  4,  pp.  1-86,  Pergamon  Press,  Oxford, 
1978. 

[18]  P.S.  Theocaris  and  N.l.  loakimidis,  "Numerical 
Integration  Methods  for  the  Solution  of  Singular 
Integral  Equations",  Quarterly  of  Appl.  Mathematics, 
pp.  173-183,1977. 

[19]  M.L.  Williams,  "Stress  Singularities  Resulting  from 
Various  Boundary  Conditions  in  Angular  Corners  ol 
Plates  in  Extension",  J.  Appl.  Mech.,  Vol.  19,  pp.  526- 
528, 1952. 

[20]  M.C.  Kuo  and  D.B.  Bogy,  "Plane  Solutions  for  the 
Displacement  and  Traction-Displacement  Problems 
for  Anisotropic  Elastic  Wedges",  J.  Appl.  Mech.,  Vol. 
41,  pp.  197-202,  1974. 

[21]  M.C.  Kuo  and  D.B.  Bogy,  "Plane  Solution  for 
Traction  Problems  on  Orthotropic  Unsymmetrical 
Wedges  and  Symmetrically  Twinned  Wedges",  J. 
Appl.  Mech.,  Vol.  41 ,  pp.  203-208,  1974. 

[22]  N.l.  loakimidis  and  P.S.  Theocaris,  "The  Numerical 
Evaluation  ot  a  Class  of  Generalized  Stress  Intensity 
Factors  by  Use  of  the  Lobatto-Jacobi  Numerical 
Integration  Rule",  Int.  J.  of  Fracture,  Vol.  14,  pp.  469- 
484,1978. 

[23]  N.l.  loakimidis  and  P.S.  Theocaris,  "On  the  Selection 
of  Collocation  Points  for  the  Numerical  Solution  ol 
Singular  Integral  Equations  with  Generalized 
Kernels  Appearing  in  Elasticity  Problems", 
Computers  &  Structures,  Vol.  1 1 ,  pp.  289-295, 1 900. 

[24]  G.D.  Gupta,  "Strain  Energy  Release  Rato  for  Mixed 
Mode  Crack  Problem",  ASME,  76-WA/PVP-7,  1977. 

[25]  S.N.  Chatterjee,  "The  Stress  Field  in  the 
Neighborhood  of  a  Branched  Crack  in  an  Infinite 
Elastic  Sheet",  Int.  J.  of  Solids  &  Structures,  Vol.  1 1 , 
pp.  521-538, 1975. 

[26]  G.P.  Cherepanov,  "Mechanics  of  Brittle  Fracture", 


McGraw-Hill,  N.Y.,  1979. 

[27]  F.  Delale,  "Mode  III  Fracture  of  Bonded 
Nonhomogeneous  Materials",  Engineering  Fracture 
Mechanics,  Vol.  22,  pp.  213-226, 1985. 


(28)  S.  Krenk,  "Influence  of  Transverse  Shear  on  an 
Axial  Crack  in  a  Cylindrical  Shell",  Int.  J.  Fracture, 
Vol.  14,  pp.  123-143, 1978. 


Figure  1.  Superposition  Scheme  for  the  Inlmite  Composite  Plate  with  Two  Embedded  Cracks 


Table  1 .  Matenal  constants  for  orthotropic  plate. 


el 

21 .08  e*06  psi. 

et 

1.5  e+06  psi. 

glt 

0.98  e+06  psi. 

VLT 
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Figure  2.  Vanation  of  the  Stress  Singularity  Power  (-  P)  with 
the  Angle  0. 


Table  2.  Comparison  of  present  solution  with 
references  for  the  special  case  of  isotropic 
material. 
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Figure  9.  Mixed-Mode  Strain  Energy  Release  Rates  at  the 
Kink  Tip  as  a  Function  of  Kink  Angle  8. 

Isotropic  Case.  (ex=1,  Lo->0). 


Figure  10.  Mixed-Mode  Strain  Energy  Releasu  Hates  at  the 
Kink  Tip  as  a  Function  of  Kink  Angle  0. 
Orthotropic  Case.  (ex=1,  l_2->0). 
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ABSTRACT:  In  this  paper,  mixed-mode  matrix  fracture  in 
graphite-epoxy  composites  has  been  studied.  Experimental 
investigation  was  conducted  on  a  family  of  doubly  side-notched 
unidirectional  off-axis  specimens.  By  varying  the  notch  depth  and 
the  off-axis  angle,  a  total  of  28  fracture  conditions  of  differing 
mixed-mode  ratios  was  produced.  Fracture  analysis  of  the  test 
data  suggested  that  the  total  strain  energy  release  rate  is  a 
suitable  material  condition  for  mixed-mode  matrix  cracking  in 
graphite-epoxy  composites. 
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Structural  composites,  notably  laminates  made  of  unidirectional  tape 
systems,  can  sustain  extensive  matrix  cracking  before  the  load  carrying  fibers 
fail  Matrix  cracking  usually  occurs  at  low  stress  level  due  to  weak  inU-rtacial 
bond  strength  between  matrix  and  fiber,  and  between  laminating  plies.  Thus, 
propagation  of  matrix  cracks  in  laminates  either  follows  the  fiber-matrix 
interface  or  the  ply-to-ply  interface,  or  both. 

Fig.  1  is  an  x-radiograph  taken  from  a  graphite-epoxy  [02/902ls  laminate 
having  a  center-notch.  When  the  laminate  Is  loaded  in  uniaxial  tension, 
extensive  damage  In  the  form  of  matrix  cracks  near  the  notch  can  be  observed 
At  this  phenomenological  scale,  matrix  cracking  can  be  classified  into  two 
major  modes.  Namely,  the  intra-ply  cracking  (fiber-wise  splitting)  which 
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occurs  inside  a  ply  and  propagate  along  the  fibers;  and  the  inter-ply  cracking 


(delamination)  which  occurs  in  the  interface  between  two  adjacent  plies. 

in  Fig.  I,  the  four  vertical  cracks  were  initiated  first  near  the  hole  and 
then  propagated  along  the  fibers  in  the  0°-ply,  The  driving  force  here  is  the 
interfacial  shear  due  to  load-transfer  from  the  fiber  bundle  cut  by  the  hole  to 
trie  fiber  bundle  which  is  uncut.  Because  of  the  constraint  stemming  from 
ponding  between  the  0°  and  the  90°  piles,  the  vertical  splits  propagatcj  aably 
with  the  applied  tension. 

As  the  vertical  cracks  propagated  away  from  the  hole,  another  mode  of 
load-ti  onsfer  then  took  place  between  the  cracked  0°-ply  and  the  uncracked 
90°-ply.  Secondary  inter-ply  stresses  along  the  roots  of  the  vertical  cracks 
were  then  induced,  which  then  initiated  delamination  in  the  0/90  interface. 

Fracture  analysis  of  the  cracked  specimen  at  each  major  form  of 
cracking  reveals  that  the  corresponding  crack-tip  stress  fields  are  complex  and 
the  associated  propagation  involves  both  opening  and  shearing  modes. 

Model  simulation  for  intra-ply  fiber-wise  matrix  cracking  and  inter-ply 
delamination  has  recently  been  performed  using  the  strain  energy  release  rate 
method  [I],  This  method,  when  limited  to  mode-1  propagation  conditions,  lias 
proven  useful  for  modeling  brittle  matrix  cracks  in  graphite-epoxy  systems.  In 
such  cases,  it  is  necessary  to  determine  the  strain  energy  release  rate  G,  at 

the  crack  front  as  driving  force,  and  to  validate  the  corresponding  critical 
strain  energy  release  rate  G)c  as  material  resistance  [)]. 

MIXED-MODE  FRACTURE  CRITERIA 

As  illustrated  in  Fig.  1,  most  matrix  cracking  in  laminates  involves 
mixed  opening  and  shearing  modes.  However,  the  applicabilty  of  the  energy 
release  rate  criterion  to  mixed-mode  cracking  has  net  been  as  t  irmly 
established. 

Several  studies  aimed  at  establishing  criteria  for  mixed-mode  matrix 


cracking  In  unidirectional  laminates  have  been  conducted  In  the  past  using 
graphite-epoxy  composites.  Wilkins,  et.  al.  [2]  and  Ramkumar,  et.al  [3]  used  the 
cracked-lap  shear  specimen  loaded  in  uniaxial  tension  to  induce  mixed  mode- 1 
and  mode-1 1  delamlnatlon  between  the  lap-layer  and  the  substrate  layer.  By 
varying  the  thickness  of  the  lap- layer  relative  to  the  substrate  layer, 
mixed-mode  ratio,  Gj  (/6|  ranging  from  0.35  to  0.45  could  be  obtained.  They 

ODserved  that  the  total  strain  energy  release  rate  (G|*G||)C  obtained  under 

mixed-mode  conditions  is  slightly  greater  than  6(c  obtained  under  pure  moae-l 

conditions.  Bradley  and  Cohen  [A]  used  a  cantiliver  split-beam  specimen  leaded 
by  a  pair  of  upward  and  downward  loads  applied  at  the  tip  of  the  cantiliver. 
Variation  of  the  mixed-mode  ratio  G|  j/G j  was  achieved  by  changing  the  ratio  of 

the  upward  and  downward  loads.  Mixed-mode  conditions  with  G|  j/Gj  ratios 

ranging  from  0  to  about  0.6  were  produced.  They  observed  that,  in  composite 
systems  made  of  brittle  matrix,  the  measured  total  strain  energy  release  rate 
(6|+6||)c  increased  with  G||/G(;  but  it  decreased  slightly  with  G| j/G|  in 

systems  of  ductile  matrix.  Wang,  et.  al.  (5)  used  a  double  side-notched,  on -axis 
unidir ectioal  laminate  specimen  loaded  in  axial  tension.  By  varying  the 
off-axis  angle  from  0°  to  90°  and  the  depth  of  the  notches,  mixed-mode 
conditions  with  G( j/Gj  ratios  ranging  from  0  to  about  2.5  were  achieved  They 

found  that  the  total  strain  energy  release  rate  (G|+G| |)c  increased  with  Gj j/G| 
up  to  about  G |  |/G |  =  1.5;  it  then  remained  constant  for  G| j/Gj  between  1.5  and 
2.5. 

Russell  and  Street  [61  used  specimens  of  four  different  configurations 
and  obtained  critical  strain  energy  release  rates  for  a  wide  range  of 
mixed-mode  cracking  conditions.  Including  pure  mode- 1 1  cracking.  They  showed 
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that  the  critical  strain  energy  release  rates  depended  on  the  test  specimen  and 
test  method  used;  hence,  a  general  criterion  for  all  the  mixed-mode  matrix 
cracking  cases  tested  could  not  be  established. 

One  possible  reason  for  the  lack  of  a  general  criterion  has  been 
attributed  to  the  manner  in  which  fracture  analysis  of  the  test  specimens  was 
performed.  In  the  case  of  a  beam-like  specimen,  the  approximate  beam  theory 
was  employed,  while  in  the  case  of  the  plate-like  specimen,  a  finite  element 
plate  model  was  constructed.  These  analysis  methods  lacked  the  required 
precision  to  treat  complicated  singular  stress  fields,  to  simulate  the  actual 
loading  conditions  or  to  properly  represent  the  exact  configuration  or'  the 
cracked  specimens.  Significant  numerical  errors  could  result  in  the  computed 
fracture  quantities,  especially  for  mixed-mode  cracking. 

Another  possible  reason  stems  from  uncertainties  about  the  fracture 
mechanisms  associated  with  pure  mode-1 1  cracking.  Specifically,  ideally  pure 
mode- 1 1  cracking  is  difficult  to  simulate  by  tests.  In  actual  experiment,  pure 
mode- 1 1  propagation  is  often  accompanied  by  some  amount  of  friction  between 
the  cracked  surfaces.  The  fracture  analysis  models  do  not  include  any  such 
friction  mechanisms.  A  separate  criterion  may  be  needed  for  pure  mode- 1 1 
cracking. 

THE  PRESENT  INVESTIGATION 

In  this  paper,  a  mixed-mode  criterion  is  suggested  for  matrix  cracks 
propagating  in  graphite-epoxy  composites.  This  criterion  is  based  on  analysis 
of  test  data  using  specirnerns  of  varying  cracked  configurations,  which  provide 
mixed-mode  fracture  conditions  with  G ( j/G (  ratios  ranging  uniformly  from  0  to 

about  3.  The  case  of  predominantly  mode-1 !  CG( |/G|  >  3)  or  pure  mode-1 1  (G(  -  0) 

is  excluded.  Fracture  analysis  of  the  test  specimens  Is  performed  using  a  t  mite 
element  crack  growth  simulation  model,  as  exact  solutions  for  the  test 


specimen  configurations  cannot  presently  be  obtained.  The  accuracy  of  the 
simulation  model  is,  however,  adjudicated  by  comparing  results  of  problems  of 
similar  crack  configurations  whose  solutions  can  also  be  found  rigorously. 

Experiment 

The  specimen  used  in  the  experiment  is  a  notched  off-axis  tension 
coupon  prepared  from  a  unidirectional  laminate  made  of  Hercules  AS4-350 1  -06 
graphite-epoxy  prepreg  tape.  Fig.  2  depicts  the  general  configuration  of  the 
coupon.  The  overall  dimension  is  23  cm  long  and  2.5  cm  wide.  Excluding  the  4 
cm  end-tabs,  the  clear  section  of  the  coupon  is  about  15  cm  in  length.  The  pair 
side-notches  are  Introduced  at  the  mid-section  by  an  8-mll  (0.2  mm)  thick 
diamond  saw. 

The  depth  of  the  side-notch  a  and  the  off-axis  angle  8  (between  the 
applied  tension  and  the  direction  of  the  fibers)  are  varied  in  the  test  program 
as  follows: 

6  =  0°,  5°,  10°,  15°,  20°,  25°,  90° 
a  =  2.5  mm,  3.2  mm,  3.8  mm,  4.5  mm 

As  depicted  in  Fig.  3,  the  coupon  can  Initiate  a  kink  crack  (denoted  as  a') 
at  the  side-notch  tip  and  propagate  in  the  fiber  direction  when  the  applied 
tension  o0  reaches  some  critical  value.  The  propagation  is  generally  mixed 
with  modes  (  and  II.  The  degree  of  mix  is  determined  solely  by  the  angle  8,  if 
the  notch  depth  a  is  held  constant.  Conversely,  if  0  is  held  fixed,  the  critical 
applied  tension  at  the  onset  of  the  kink  fs  determined  by  the  notch  depth,  a. 

In  this  experiment,  a  total  of  28  mixed-mode  fracture  conditions  were 
created  by  varying  8  and  a  as  mentioned.  This  has  provided  fractures  with 
6||/6|  ratios  ranging  uniformly  from  0  to  about  3.  It  should  be  noted  that 

mixed-mode  matrix  fracture  in  such  a  wide  G(  |/G(  ratio  range  has  not  been 
previously  investigated. 


In  each  of  the  28  mixed-mode  fracture  conditions,  three  to  four  test 
specimens  were  used,  with  the  exception  of  one  case  (notch  depth  =  3.8  mm) 
where  only  one  specimen  was  available  for  some  of  the  off-axis  angles. 

The  tests  were  conducted  in  room  temperture  on  a  close-loop  instron 
tester  with  a  load  rate  of  1800  Kg/min.  The  critical  load  at  the  onset  of  the 
kink  crack  was  recorded  on  a  strip  chart.  Figs.  4,5  and  6  show  the  experimental 
plot  of  critical  laminate  stress  versus  the  off-axis  angle  6  at  the  onset  of  the 
kink  crack  for  specimens  of  side-notches  2.5  mm,  3.2  mm  and  4.5  mm  deep, 
respectively.  The  case  for  a  =  3.8  mm  is  hot  shown  because  of  insufficient 
numbers  of  test  specimens. 

It  is  seen  from  the  test  results  that  the  critical  stress,  oCr,  at  the  onset 
of  the  kink  decreases  sharply  with  the  off-axis  angle  6  when  the  notch  depth  is 
held  constant.  Similarly,  the  critical  stress  also  decreases  with  the  increase 
of  the  notch  depth,  a  when  the  angle  6  is  held  constant. 

Post-test  SEM  examination  of  the  fractured  surfaces  under  500x  to 
lOOOx  magnifications  revealed  extensive  fiber  breaking  in  the  wake  of  the  kink. 
Fig.  7  presents  two  such  pictures  taken  near  the  kihk  point.  Fiber  breaks  are 
visible  in  all  cases.  It  is  believed  that  the  observed  fiber  breakage  is  due  to  the 
good  bond  between  the  matrix  and  the  fiber,  resulting  in  fiber  nesting  and/or 
fiber  bridging  accross  the  kink  path. 

Finite  Element  Analysis 

The  experimental  mixed-mode  kinking  problem  is  next  simulated  by  the 
finite  element  routine.  As  mentioned  earlier,  the  simulation  model  must  be 
adjudicated  for  it's  accuracy.  In  the  interest  of  conciseness,  however,  details 
of  this  development  will  not  be  discussed  In  this  paper.  Interested  readers  are 
referred  to  Ref.  [7], 

Return  to  the  off-axis  doubly  side-notched  coupon  section  shown  in  Fig. 
2.  The  unidirectional  laminate  will  be  assumed  an  elastic,  homogeneous  and 


orthotropic  plate  having  constants  In  the  principal  material  coordinates  (L,T) 
determined  as  follows: 


El=  145  Cpa  Ej=  10.3  Gpa  Glj=  6.7  6pa  V>Lj  =  0.3 

Now,  let  the  coupon  be  loaded  by  the  far-fleld  strain,  ex.  At  some 
critical  value  of  ex,  the  stresses  near  one  of  the  side-notch  tips  are  assumed 
to  cause  a  kink  emanating  from  the  notch  tip  and  propagate  stably  in  the 
direction  of  the  fibers.  Of  interest  is  when  the  length  of  the  kink  is  small 
compared  to  the  notch  depth  a.  Then,  the  mixed-mode  strain  energy  release 
rates  6|  and  6|j  at  the  kink  tip  are  assumed  to  control  the  behavior  of  the 

initial  kink.  The  values  of  G(  and  G(  |  are  calculated  by  the  finite  element 

routine  via  a  crack-closure  technique.  These  can  be  conveniently  expressed  in 
terms  of  the  applied  far-fleld  strain  in  the  form: 

G,  =  C,(ex)2  6,,  =  C,|(ex)2  (1) 

where  C(  and  C|(  are  coefficients  from  the  finite  element  calculations. 

Figs.  8  and  9  show,  respectively,  the  coefficients  C|  and  C(|  plotted 

against  the  off-axis  angle  e,  and  with  the  side-notch  depth  a  as  an  independent 
parameter.  It  is  seen  that  the  kink  is  mixed  in  fracture  modes  for  off-axis 
angles  up  to  30°.  Beyond  30°,  the  fracture  Is  essentially  mode-l.  Variation  of 
the  mixed-mode  ratio,  C(,/C|,  with  the  off-axis  angle  0  is  shown  in  Fig  10. 

This  ratio  depends  principally  on  0,  and  is  almost  Independent  of  the  notch 
depth  a. 

Since  for  each  test  coupon  the  critical  stress  oCr  at  the  onset  of  the  kink 
was  measured  experimentally.  The  corresponding  critical  strain  (ex)Cr  can  be 
calculated  by  dividing  Oor  by  the  coupon's  axial  modulus,  Ex.  Then,  using  the 
values  ci  C(  and  C| j,  the  critical  strain  energy  release  rates  (Gt)Cr  and  (G,j)cr  at 
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the  initial  kink  for  each  test  case  can  De  calculated  via  Eq.  1. 

For  test  cases  where  G|  dominated,  the  deduced  (6|)Cr  is  clearly  G)c. 

However,  for  the  cases  where  both  mode-1  and  mode-1 1  were  present,  a 
combination  of  (Gj)cr  and  (G(  |)cr  in  some  form  would  control  the  behavior  of  the 

kink.  Fig.  1 1  is  a  diagram  depicting  the  interactions  between  (G()Cr  and  (GjjJcr 
determined  from  all  the  test  cases. 

Though  the  test  data  show  some  degree  of  scatter,  the  overall  trend 
indicates  that  the  total  strain  energy  release  rate  (Gj)cr  remain  more  or  less  a 

constant.  This  strongly  suggests  that  (6j)Cr  or  Gjc  essentially  controls  the 

behavior  of  the  kink,  including  the  special  case  of  mode-1  fracture. 

Of  course,  this  suggestion  is  based  only  on  mixed-mode  fracture  data 
with  G||/G|  ratios  ranging  from  0  to  about  3.  In  this  range,  pure  moae-li  or 

predominantly  mode-1 1  fracture  is  not  included. 

It  is  also  noted  that,  for  graphite-epoxy  composites,  critical  strain 
energy  release  rate  data  for  matrix  fracture  have  mostly  been  limited  to  Gjc. 

Genrally,  the  measured  values  for  Glc  lie  in  the  range  between  120  to  260  J/rn2 

depending  on  the  material  system  used,  in  this  study,  Gtc  has  the  value  in  the 

order  of  300  J/m2.  This  seems  to  be  on  the  high  side  compared  to  most  other 
accepted  values.  However,  in  the  present  tests,  fiber  breakage  in  the  wake  of 
matrix  cracking  was  detected  in  all  cases.  This  could  account  for  the  higher 

measured  value  for  G(c. 

CONCLUDING  REMARKS 

in  this  paper,  mixed-mode  matrix  fracture  in  graphite-epoxy  composites 
has  been  studied  using  a  doubly  side-notched,  unidirectional  off-axis  specimen. 
This  specimen  has  a  configuration  which  is  simple  to  fabricate  and  versatile  in 


geometrical  variation.  As  a  result,  a  total  of  28  mixed-mode  fracture 
conditions  could  be  produced,  which  yielded  a  set  of  Gt t/G |  ratios  covering 

uniformly  from  0  to  about  3. 

Based  on  this  data,  a  more  definitive  conclusion  could  be  reached 
regarding  the  criterion  for  mixea-mode  matrix  fracture.  Specifically,  the  total 
strain  energy  release  rate  6jc  appears  to  be  a  suitable  criterion.  This 

criterion,  however,  may  not  be  applicable  to  pure  mode-1 1  or  predominantly 
mode-1 1  matrix  fracture.  The  latter  may  involve  additional  energy  dissipating 
mechanisms  such  as  friction.  If  so,  a  separate  criterion  may  be  necessary. 
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Figure  5 


Critical  stresses  at  onset  of  kink  crack,  a  =  3.18  mm 
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Figure  9  Mode-ll  strain  energy  release  rate  coefficients  as  function  of  off-axis  angle  0. 
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Three-Dimensional  Simulation  of 
Crack  Growth  in  Notched  Laminates 

A.  S.  D.  WANG,  E.  S.  REDDY  AND  YU  ZHONG 


ABSTRACT 

This  paper  discusses  the  matrix  cracking  sequence  in  a  [02/902]s 
graphite-epoxy  laminate  with  double-side  notches.  Experiments  were 
performed  on  specimens  loaded  in  uniaxial,  quasi-static  tension.  The  specimens 
were  inspected  at  ascending  load  increments  by  x-radiography  for  patterns  of 
matrix  cracks  caused  by  stress  concentration  near  the  notched  rigion 

A  numerical  procedure  based  on  a  3-D  finite  element  method  was  then 
developed  to  simulate  the  observed  matrix  crack  initiation,  crack  interaction 
and  load-dependent  crack  growth  sequence.  The  simulation  begins  with  an 
analysis  of  the  3-D  stress  field  near  the  notched  region.  This  is  followed  by  a 
search  of  possible  modes  of  matrix  cracking  and  the  associated  condition  for 
propagation.  The  concept  of  brittle  fracture  is  invoked  to  provide  the  necessary 
criterion  for  identifying  the  appropriate  cracking  modes  and  for  determining 
the  associated  critical  loads  for  their  initiation.  A  comparison  between 
experiment  and  prediction  is  presented. 


INTRODUCTION 


For  a  class  of  structural  laminates,  initial  material  damage  involves  two 
basic  forms  of  matrix  cracking  [)].  One  form  is  referred  to  as  intraply  cracking 
where  a  ply,  or  a  layer  of  several  plies  of  like  fiber  orientation,  suffers  a 
through-the-thickness  crack  along  the  fiber  direction.  Take  the  [02/902]s 
laminate  coupon  under  uniaxial  tension  as  an  example.  A  fiber-wise  crack  in  the 
inner  90°-layer,  known  as  transverse  cracking,  is  a  case  of  intraply  cracking 
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Similarly,  a  fiber-wise  crack  in  the  outer  0°-layer,  known  as 
longitudinal  splitting,  is  also  a  case  of  intraply  cracking.  The  other  basic  form 
is  referred  to  as  interply  cracking  where  two  adjacent  plies  suffer  a 
separation  in  their  interface.  A  delamination  in  the  0/90  ply  interface  of  the 
(02/902]s  laminate  coupon  mentioned  above  is  a  case  of  interply  cracking. 
These  two  basic  forms  of  matrix  cracking  may  occur  independently  or 
interactively,  depending  on  the  manner  of  loading  and  the  lamination  structure 
[2],  Generally,  one  or  both  of  these  cracking  modes  occur  before  the 
load-carrying  fibers  break. 

The  initiation  and  growth  mechanisms  of  intraply  and  interply  matrix 
cracks,  when  occuring  independently,  have  successfully  been  described  within 
the  frame  work  of  anisotropic  ply  elasticity  and  the  fracture  theory  of  brittle 
cracks  (3,4],  A  3-dimensional  treatment  based  on  the  same  analysis  concept 
was  recently  applied  to  laminates  where  the  two  basic  cracking  modes  occur 
interactively  [5],  In  these  previous  studies,  the  laminate  configuration  was 
that  of  a  straight  flat  coupon,  where  free-edge  effects  dominated  the 
mechanisms 

In  this  paper,  we  use  laminate  coupons  with  double-side  notches  to 
study  the  formation  of  interactive  matrix  cracks  that  emanate  from  the  notch 
rather  than  from  the  free  edge.  Since  the  notch  is  orientated  norma)  to  the 
applied  tension,  a  very  strong  stress  concentration  is  induced  near  the 
notch-tip.  Thus,  the  intensity  of  concentration  is  sentitive  to  the  depth  of  the 
notch  and  alters  the  matrix  cracking  characteristics. 

Experiments  were  performed  on  specimens  made  of  a  graphite-epoxy 
laminate  in  the  form  of  [02/902ls  tension  coupons  with  side-notches  of 
various  depths.  For  each  test  specimen,  matrix  cracking  patterns  near  the 
notch-tip  were  inspected  by  x-radiography  at  prescribed  ascending  load 
increments  in  order  to  obtain  a  load-sequence  of  the  matrix  cracking  events 

A  numerical  procedure  based  on  a  3-D  finite  element  method  was  then 
developed  to  simulate  the  observed  load-dependent  crack  growth.  The 
simulation  is  based  on  the  strain  energy  release  rate  analysis  method  for 
non-interactive  matrix  cracking  [3,4]  and  interactive  matrix  cracking  [5]. 

A  comparisons  is  made  between  the  predicted  load-sequence  of  events 
and  those  recorded  experimentally  for  specimens  of  different  notch  depths 

EXPERIMENT 

The  material  used  in  the  experiment  was  the  AS4-3501-06  graphite- 
epoxy  unidirectional  system.  [02/902]s  laminate  panels  were  made  using  an 
autoclave  curing  procedure.  Test  coupons  were  cut  from  these  laminate  panels, 
with  dimensions  of  25.4  mm  wide  and  228.6  mm  long;  the  specimen  thickness 
was  about  1.016  mm.  Double  side-notches  were  introduced  at  the  mid-section 
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of  the  coupon  by  an  8-mil  (0.008  in.)  diamond  saw.  Specimens  of  four  notch 
depths  were  so  prepared  (2.54  rnrn,  3. 1 75  mm,  3.8 1  mm  and  4  445  mm). 

Tensile  loading  was  applied  to  the  test  specimen  through  an  Instron 
tester  with  the  cross-head  speed  set  at  0.25  mm  per  minute.  At  prescribed 
ascending  load  increments,  the  specimen  was  x-radiographed  at  the  notched 
section  in  order  to  determine  the  developing  matrix  cracking  patterns 

For  all  the  specimens  tested,  the  x-radiographs  revealed  three  major 
forms  of  matrix  cracking  during  loading.  In  order  of  their  occurrence,  these 
include  longitudinal  splitting  in  the  0°-layer  which  emanates  from  the 
notch-tip,  transverse  cracks  in  the  90°-!ayer  along  with  the  progression  of 
0°-layer  splitting  and,  at  some  higher  load,  0/90  interface  delamination 
growing  stably  along  the  length  of  the  0°- layer  splitting  boundary. 

Fig  1  is  a  sketch  of  the  developing  cracking  pattern  from  a  specimen 
with  side-notch  3.175  mm  deep.  It  is  seen  that  at  the  laminate  stress  of  112 
Mpa,  a  pair  of  0°-layer  splits  of  measurable  length  emanated  from  the 
notch-tip.  Initially,  the  split  at  one  notch-tip  grew  upward  while  the  split  at 
the  other  notch-tip  grew  downward.  The  growth  was  extremely  stable.  At  172 
Mpa,  splits  in  four  directions  emerged  from  the  notch-tips,  and  a  few 
90°-layer  transverse  cracks  appeared  between  the  parallel  splits.  The 
0°-layer  splits  grew  in  length  while  the  90°-layer  transverse  cracks  grew  in 
numbers  as  the  laminate  stress  increased;  see  sketch  corresponding  to  259 
Mpa.  Then,  while  the  splits  were  still  growing,  a  measurable  0/90  interface 
delamination  initiated  along  the  split  boundary  near  the  notch-tip,  see  sketch 
corresponding  to  319  Mpa.  The  delamination  grew  stably  as  the  laminate 
stress  increased,  see  sketch  corresponding  to  345  Mpa.  The  specimen  ruptured 
through  the  notch  section  at  laminate  stress  well  beyond  600  Mpa. 

Fig.  2  is  a  plot  of  the  measured  length  of  the  0°-layer  split  versus  the 
laminate  stress,  using  data  from  two  test  specimens  having  notch  depth  of 
3.175  mm.  The  scatter  in  the  data  is  due  to  variation  of  the  split  lengths  in 
four  directions.  The  mean  length  is  taken  as  the  average  of  the  splits  in  four 
directions.  The  laminate  stress  levels  at  which  0°-layer  splitting,  90°-layer 
transverse  cracking  and  0/90  interface  delamination  initiated  were  all 
recorded. 

Fig.  3  is  a  plot  of  the  measured  0/90  interface  delamination  (in  area) 
versus  the  laminate  stress  from  the  same  two  test  specimens.  The 
delamination  area  at  different  load  increments  were  measured  from  prints  of 
x-radiographs  using  an  Lernont  Scientific  image  analyzer.  The  procedure 
involves  magnification  of  the  delamination  area  by  a  high  resolution  video 
camera  which  traverses  the  contour  of  the  delamination.  The  scatter  of  the 
measured  values  is  due  to  the  variation  in  areas  from  the  four  branches  of 
delamination.  From  the  plot,  onset  of  0/90  interface  delamination  may  be 
extrapolated.  In  this  case,  delamination  onset  had  occurred  at  about  260  Mpa. 
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Table  I  summarizes  the  onset  stresses  of  the  three  major  forms  of 
matrix  cracking  from  specimens  of  four  notch  depths.  It  is  seen  that  for  each 
form  of  matrix  cracking,  onset  stress  decreases  with  increase  of  notch  depth. 
This  is  expected  because  the  deeper  the  notch  the  larger  is  the  stress 
concentration  at  the  notch-tip. 

SIMULATIONS 

The  Finite  Element  Model  To  simulate  the  specimen  used  in  the 
experiment,  let  us  consider  the  [02/9023s  laminate  having  double  side-notches 
at  regular  interval  as  shown  in  Fig.  4a.  Assume  that  these  double  side-notches 
are  spaced  so  far  apart  that  they  do  not  interact  with  one  another.  Then  a 
periodic  element  of  the  laminate  which  contains  only  one  pair  of  notches  is 
isolated  as  shown  in  Fig.  4b  This  element  thus  represents  the  test  specimen 
Note  that  the  laminate  is  symmetric  with  respect  to  the  laminate  mid-plane 
(the  x-y  plane),  and  the  y-axis  lies  in  the  plane  of  the  notches.  Hence,  it  is 
sufficient  to  model  one-eighth  of  the  element  shown  in  Fig.  4b.  A.  schematical 
finite  element  mesh  is  shown  in  Fig.  4c.  Due  to  expected  stress  concentration 
near  the  notch-tip  and  ply  interfaces,  a  finer  mesh  is  always  deployed  in  these 
regions. 

The  finite  element  routine  was  developed  based  on  the  assumption  that 
the  unidirectional  ply  is  an  elastic,  homogeneous  and  orthotropic  medium.  The 
elastic  and  other  pertinent  material  constants  for  the  AS-3501-06  system 
were  characterized  by  routine  tests  [6],  and  their  values  are  listed  in  Table  2. 
Solutions  for  stresses  and  other  quantities,  such  as  strain  energy  release 
rates,  were  obtained  by  employing  a  2 1 -node  brick  element.  The  actual 
computation  was  carried  out  on  VAX-1 1/750  and  Cray  X/MP  computers.  These 
and  other  computational  details  are  found  in  [7], 

Notch-Tip  Stress  Fields  The  laminate  stress  fields  were  calculated  for 
two  types  of  loading.  The  first  is  by  prescribing  a  far-field  laminate  strain  of 
eX'  )Cr6,  and  the  other  is  by  prescribing  a  uniform  temperature  change  of  AT  - 
- 1  °C.  Stresses  due  to  applied  laminate  tension  (by  giving  a  value  for  ex)  and 
laminate  post-cure  cooling  (by  giving  a  value  for  aT)  can  then  be  obtained  by 
superposition. 

Although  there  are  six  stress  components  at  each  finite  element  node,  it 
is  of  interest  to  examine  only  those  components  that  are  responsible  for  the 
observed  matrix  cracking  initiation. 

First,  let  us  examine  oy  in  the  0°-!ayer.  This  stress  is  thought  to  cause 
0°- layer  split,  which  in  fact  was  observed  as  the  first  mode  of  failure  under  a 
very  low  tensile  loading  For  the  case  of  ex-  10'6,  oy  is  tensile  throughout  the 
thickness  of  the  0°-layer  near  the  notch  region.  Its  value  varies  from  the  top  to 
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the  bottom  of  the  layer,  with  the  minimum  occurring  near  the  0/90  interface.  ; 

Fig.  5a  shows  the  oy  distribution  in  the  0°-layer  near  the  0/90  interface  for  \ 

the  specimen  having  notch  depth  of  3.175  mm.  A  sharp  rise  of  ay  in  tension  is  J 

seen  to  occur  at  the  notch-tip,  displaying  a  singular  behavior.  A  similarly 
behaved  in-plane  shear  stress  Txy  is  also  present  at  the  notch-tip,  it's  planar  \ 

distribution  near  the  0/90  interface  is  shown  in  Fig.  5b  The  concentration  ! 

intensities  of  ay  and  Txy  at  the  notch-tip  are  about  the  same.  \ 

For  the  case  of  aT  =  -1°C,  oy  is  also  tensile  throughout  the  0°-layer.  Fig 
5c  shows  the  ay  distribution  in  the  0°-layer  near  the  0/90  interface.  Here, 
stress  concentration  due  to  the  notch  is  much  less.  But,  by  the  magnitude  of 
this  stress  throughout  the  0°-layer  is  quite  large.  Thus,  the  combined  tensile 
and  thermal  loading  will  cause  the  0°-layer  splitting  to  be  in  mixed  modes.  ' 

Next,  let  us  examine  a*  in  the  90°-layer.  This  stress  causes  90-layer  j 

transverse  cracking.  Again,  for  the  case  of  ex=  lO"6,  this  stress  is  tensile  and  i 

varies  throughout  the  thickness  of  the  90°-layer  near  the  notch  region,  with  i 

the  minimum  occurring  near  the  0/90  interface  and  the  maximum  at  the  • 

mid-plane.  Fig.  6a  shows  the  ox  distribution  in  the  90°-Iayer  near  the  laminate 
mid-plane  for  the  specimen  having  3.175  mm  notch  depth.  It  is  seen  that  a 
sharp  tensile  stress  is  again  developed  at  the  notch-tip. 

Similarly,  for  the  case  of  aT  *  -l°C,  ox  in  the  90°-layer  is  also  tensile 
with  significant  magnitude;  but  stress  concentration  caused  by  the  notch  is 
minimal.  Fig.  6b.  Other  stress  components  also  exist  in  the  90°-layer  near  the 
notch-tip;  but  their  magnitudes  appear  to  be  negligible. 

Finally,  the  nature  of  the  interlaminar  stresses  (oz,  txz,  Tyz)  should  be 
examined  because  these  stresses  are  responsible  for  interface  delamination. 

For  the  same  specimen  considered  under  ex  -  10'6  loading,  its  oz  distribution 
on  the  0/90  interface  is  shown  in  Fig.  7a,  while  distribution  on  the  90/90  plane 
is  shown  in  Fig.  7b.  It  is  seen  that  oz  can  be  tensile  and  of  significant 
magnitude;  but  it  exists  only  near  the  notch-tip.  As  for  oz  caused  by  thermal 
cooling,  the  associated  magnitude  for  oz  is  relatively  small.  Similarly,  the 
interlaminar  shear  stresses,  rxz  and  Tyz  also  exist  with  highly  localized 
magnitudes  at  the  notch-  tip. 

From  the  above  analysis,  it  appears  that  0°-!ayer  splitting  and  90°- 
layer  transverse  cracking  are  equally  likely  to  occur,  while  the  likelihood  for 
interface  delamination  is  comparatively  smaller.  However,  judgement 
regarding  relative  occurrence  of  these  cracking  events  cannot  be  made  based  on 
the  computed  stresses,  as  they  all  display  some  degree  of  stress 
concentration.  In  what  follows,  we  attempt  to  simulate  the  onset  of  the 
observed  cracking  modes  from  a  fracture  point  of  view. 

Simulation  of  Q°-Laver  Splitting.  To  simulate  the  initiation  and  growth 
of  0°-layer  splitting,  we  shall  assume  that  90°-!ayer  transverse  cracking  will 
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not  simultaneously  occur.  Then,  at  the  notch-tip,  we  issue  a  small  0°-layer 
split  of  length  s0  as  shown  by  the  insert  in  Fig  8.  This  small  split  represents 
an  effective  flaw  which  exists  at  the  notch-tip  and  propagates  to  become  a 
0°-layer  split  whenever  a  certain  condition  is  reached.  Under  a  constant 
far-field  strain  loading,  the  split  is  assumed  to  propagate  stably  to  reach  a 
length  s  >  s0.  Thus,  the  finite  element  simulation  is  to  calculate  the  split-tip 
stresses  and  the  associated  fracture  quantity.  For  the  latter,  we  calculate  the 
split-tip  strain  energy  release  rate  G  as  a  function  of  the  split  length,  s. 

As  was  mentioned  earlier,  the  tensile  norma)  stress  oy  and  the  in-plane 
shear  stress  rxy  in  the  0°-layer  are  the  major  stress  components  causing 
splitting.  Fig  8  is  a  plot  of  the  split-tip  stress  Oy  versus  the  split  length,  s, 
for  the  specimen  having  3.175  mm  side-notches  subjected  to  ex  *  I  O'6  loading. 
It  is  seen  that  oy  is  larger  when  s  is  small,  but  it  deceases  sharply  with 
increase  of  s  On  the  other  hand,  the  associated  shear  stress  rxy  (not  shown) 
became  relatively  more  dominant  with  increasing  s. 

When  subject  to  thermal  cooling  of  aT  =  -1°C,  oy  in  the  0°-layer  is  also 
tensile,  see  Fig.  5b.  But  variation  of  oy  at  split-tip  due  to  growth  of  split  is 
rather  insignificant 

To  facilitate  a  prediction  for  the  load  versus  split-growth  relationship, 
we  then  calculate  the  split-tip  strain  energy  release  rate,  G(s).  This  quantity 
is  conveniently  expressed  in  terms  of  the  loads  ex  and  AT  [5]: 

G(s)  =  (7Ce  ex  WCt  AT]2d  (l) 

where  aT  represents  thermal  cooling  and  d  is  a  length  scale  which  is  set  at 
unity  in  this  study.  The  coefficients  Ce  and  Ct  are  functions  of  s  and  represents 
the  strain  energy  release  rates,  corresponding  to  ex-l  and  aT*-1  °C, 
respectively 

Figs.  9a  and  9b  show,  respectively,  the  coefficients  Ce  and  Ct  versus  the 
split  length  s  for  the  specimen  with  3.175  mm  notch  depth.  It  is  seen  that  Ce 
and  Ct  both  contain  mixed  modes.  However,  Ce  is  predominantly  of  mode-1 1, 
while  Ct  predominantly  of  mode-1.  When  the  two  load  agencies  are  combined,  as 
in  Eq.  (I),  a  mixed-mode  cracking  of  approximately  equal  ratio  results.  Note 
that  the  overall  strain  energy  release  rate  is  one  which  decreases  with  the 
split  length,  s;  This  indicates  a  stable  splitting  growth,  a  behavior  consistent 
with  that  observed  in  the  experiment. 

The  load  versus  split-growth  relation  is  derived  from  the  fracture 
criterion, 

G(s)  =  Gc  (2) 

where  Gc  is  the  critical  strain  energy  release  rate  for  mixed  mode  cracking 
Assume  that  the  value  of  AT  is  given  Then,  by  combining  Eqs.  (I )  and  (2)  we 
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obtain  the  critical  laminate  strain  (ex)cr  as  a  function  of  split  length,  s 

For  the  material  system  used  in  this  study,  aT  and  the  mixed  mode  6c 
have  been  determined  elsewhere  [6],  and  their  values  are  listed  m  Table  2 
Thus,  the  predicted  (eK)cr  can  be  converted  to  (ox)cr  For  the  specimen  just 
considered,  the  computed  (ajcr  versus  s  relations  is  shown  by  the  solid  line  in 
Fig  2  It  is  seen  that  the  predicted  result  agrees  well  with  the  initial  portion 
of  the  experimental  split-growth  data,  where  the  splitting  was  not  yet 
significantly  complicated  by  the  development  of  90°-layer  transverse  cracks 
The  predicted  curve,  however,  departs  away  from  the  observed  results  as 
90°-layer  transverse  cracks  developed  in  higher  density.  To  include  the  effects 
of  these  transverse  cracks  on  split  growth  will  require  a  major  mod i f  ication  of 
the  simulation  model 

The  predicted  onset  stresses  for  0°-layer  splitting  for  specimens. of 
four  notch  depths  are  listed  in  Table  1  along  with  their  experimental 
counterparts.  In  all  cases,  the  model  seerns  to  predict  well  the  initiation  of  the 
splitting. 

Simulation  of  0/90  Interface  Delamination.  Delamination  of  the  0/90 
interface  takes  place  at  much  higher  load.  Once  initiated,  it  grows  stably  along 
the  boundary  or  the  0°-layer  splits.  The  delamination  pattern  is  shown 
schematically  in  Fig  10  as  we  have  observed  in  the  experiment,  90°-layer 
transverse  cracks  actually  formed  continuously  as  the  0/90  interface 
delamination  grew,  see  Fig  1.  An  analytical/computional  simulation  of  this 
complex  interactive  cracking  phenomenon,  though  not  impossible,  is  quite 
tedious  and  probably  not  fruitful  Thus,  a  simplified  version  is  attempted 
instead.  Namely,  we  shall  assume  that  only  0°-layer  splitting  precedes  the 
initiation  of  the  0/90  interface  delamination  and  the  effect  of  900-)aycm 
transverse  cracking  is  negligible. 

The  simulation  follows  a  similar  procedure  as  used  for  0°-)ayer 
splitting  A  set  of  densely  meshed  finite  elements  is  deployed  near  the 
intended  delammation  region,  double  nodes  are  assigned  on  the  plane  of 
delamination  and  these  are  then  released  in  sequence  so  as  to  rnimick  the 
actual  growth  pattern  observed  in  the  experiement.  In  the  node-releasing 
process,  the  fracture  energy  release  rate  coefficents,  Ce  and  Ct  are  computed 
as  functions  of  the  delaminated  area  [7]  Figs.  I  la  and  I  lb  show,  respectively, 
the  computed  Ce  and  Ct  coefficients  versus  delamination  area  for  the  specimen 
having  the  notch  depth  of  3  1 75  mm 

From  the  energy  release  rate  curves,  it  is  seen  that  the  delarmantion  is 
primarily  of  mode-ill  under  the  applied  tenile  loading  (ex-l),  while  primarily 
in  mode,  I  and  II  under  thermal  cooling  (aT»-1°C).  Thus,  the  combined  effect  is 
again  one  of  mixed  modes.  The  overall  energy  release  rate,  however,  decreases 
sharply  with  increasing  delamination  area,  indicating  a  stable  growth  This  is 
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also  consistent  with  the  behavior  observed  in  the  experiment. 

Using  the  computed  energy  release  rate  coefficients,  stress  levels 
corresponding  to  the  prescribed  delammation  node-releasing  sequence  can  be 
predicted  by  means  of  Eqs  ( 1 )  ana  (2)  For  example,  in  the  case  of  the  specimen 
having  notch  depth  of  3.175  mm,  the  predicted  delamination  growth  curve  is 
shown  by  the  solid  line  in  Fig  3  Here,  again,  the  agreement  between  prediction 
and  experiment  is  quite  close  for  the  initial  portion  of  the  delammation 
Growth  Apparently,  as  the  delammation  grows  larger,  many  transverse  cracks 
are  formed  in  the  90°-layer,  the  associated  cracking  mechanisms  then  becomes 
more  complicated  than  the  model  has  portrayed. 

The  critical  stresses  for  0/90  delarnination  in  specimens  having  other 
notch  depths  were  also  computed.  These  are  listed  in  Table  1  for  comparison 
with  their  experimental  counterparts. 

CONCLUSIONS 

In  this  paper,  we  have  presented  a  method  of  simulation  for  matrix 
cracks  that  develop  in  laminate  specimens  having  double  side-notches.  The 
analysis  entails  a  3-D  stress  analysis  and  computer  simulation  of  fracture 
growth  near  the  notched  region  The  purpose  of  the  study  is  to  understand  the 
damage  mechanisms  at  a  level  below  the  lamination  structure.  The  actual 
specimen  chosen  for  analysis  could  represent  a  critical  element  [8]  in  a  large 
laminated  structure  whose  global  strength  and/or  fatigue  properties  are  to  be 
evaluated 

Acknowledgments:  Results  reported  in  this  paper  were  obtained  during  the 
course  of  research  supported  by  a  grant  from  the  Air  Force  Office  of  Scientif ic 
Research. 

REFERENCES 

1  A  S.  D  Wang,  "Fracture  Mechanics  of  Sublaminate  Cracks  in  Composite 
Laminates,"  Composite  Technology  Review,  Vol.  6,  1984.  pp.  45-62. 

2  F  w.  Crossman  and  A.  S  D.  Wang,  "The  Dependence  of  Transverse  Cracking 
and  Delammation  un  Ply  Thickness  in  Graohite-Epoxy  Laminates,"  in  Fatigue  of 
F ibrous  Composite  Materials,  ASTM  STP-775,  1982.  pp.  118-139. 

3  A  S  D  Wang  and  F  W.  Crossman,  "Initiation  and  Growth  of  Transverse 
Cracks  and  Edge  Delammation  in  Composite  Laminates,  Part  1:  An  Energy 
Method,"  Jour  Composite  Material0,  Vol  14,  1 900.  pp.  7 1 -87 


452 


THREE-DIMENSIONAL  STRESS  ANALYSIS 


4  F  W.  Crossman,  W  J  Warren,  A  S.  D.  Wang  and  G.  E.  Law,  ‘Initiation  and 
Growth  of  Transverse  Cracks  and  Edge  Delamination  in  Composite-  l  dm  mates, 
Part  2:  Experimental  Correlation,"  Jour  Composite  Materials,  Vol  14,  i960  pp 
08-108. 

5.  A.  S.  D.  Wang,  N.  N,  Kishore  and  C.  A.  Li,  "On  Crack  Development  in 
Graphite-Epoxy  [Oc/QOcJs  Laminates  Under  Uniaxial  Tension,"  Composite 
Science  and  Technology.  Vol  24,  1985.  pp  1-31. 

6.  A.  S.  D.  Wang,  W  Bmienda  and  V.  Zhong,  “Mixed  Mode  Fracture  of  Uniaxial 
Fiber  Reinforced  Composites,"  NADC  Technical  Report.  1987 

7.  A.  S.  D.  Wang,  E.  S  Reddy  and  N.  N.  Kishore,  "A  three  Dimensional  Finite 
Element  Code  and  Users  Manual  for  Analysis  of  Matrix  Cracking  in  Laminates," 
Drexel  University  Technical  Report.  1987. 

8.  K.  L  Reifsmder,  "Critical  Element  Concepts  for  Residual  Strength  and  Life 
Prediction,"  Proc  American  Society  for  Composites,  Technomic  Publishing, 
1986  pp.  387-403 


Table  l.  Experimental  and  Predicted  (in  parenthesis)  Onset  Stresses 


Notch  Depth 

2.54  mm 

3. 1  75  mm 

3.81  rnm 

4.445  rnm 

0°-layer 

100  Mp3 

75  Mpa 

60  Mpa 

60  Mpa 

Split 

(80  Mpa) 

(70  Mpa) 

(60  Mpa) 

(60  Mpa) 

90°-layer 

Transverse 

Crack 

1 70  Mpa 

160  Mpa 

150  Mpa 

1 50  Mpa 

0/90  interface 

350  Mpa 

260  Mpa 

225  Mpa 

220  hpa 

Delammat  ion 

(300  Mpa) 

(230  Mpa) 

(200  Mpa) 

(180  Mpa) 

w.v- 


/.V.  A  -V-f, 


V -V  v ■>  v  v:.\v./.v.v.  » - V-.  V. y.'X'AV/A" JW.VAV JTST^V 


Tat) ie  2.  Pertinent  Material  Constants  for  AS4-3501  -06  UP  Ply 
£^l=  1 45  Gpa  Eyy  -  E22  =  1 0  3  Gpa  G^y  =  G^  =  6.8  Gpa  Gyz  =  3.5  Gpa 

Vp^iz5  0.3  i/yz-0  54  aL  =  0.4x1 0'6/°C  oty  =  <*z  =  28.8x1 0'6/0C 
aT  =  - 1 40  °C  (Gc)total  =  289  j/rn2  Ply  Thickness  =  0. 127  mm 


Hi  Ml*  172  MPa  2ia  Mt>*  319  MP»  XS  MP* 


Fig  I  Development  of  Matrix  Cracks  in  Specimen  of  Notch  Depth  3.175  mm 


stress  (MPa) 


Fiq  2  Split  Length  Growth  versus  Applied  Tension  (  Notch  Depth,  3  175  mm) 


X  div.»10  kra 


1  DIV.-62  kPa 


Fig  5.  (a)  Gy  Distribution  in  the 
0°-Layer  (ex=10'6) 

(b)  t xy  Distribution  in  the 
0°-Layer  CeK= 1 0-6) 

(c)  Gy  Distribution  m  the 
0°~Layer  «  aT= - 1 °C) 


1  DIV.-62  kPa 


1  DIV.-17  kPa 


Fig  6  a*  Distribution  in  90°-Layer  due  to  (a)  ex=IO"6  and(b)  Al=-l°C 


A  COMPREHENSIVE  STUDY 


ON  DAMAGE  TOLERANCE  PROPERTIES  OF 
NOTCHED  COMPOSITE  LAMINATES 

Appendix  IV 

Simulation  of  Matrix  Cracks  in  Composite  Laminates 
Containing  a  Small  Hole 
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SIMULATION  OF  MATRIX  CRACKS  IN  COMPOSITE  LAMINATES  CONTAINING 

A  SMALL  HOLE 

t.  S.  Reddy,  A.  S.  D.  W#ng,  and  Y.  ZhonQ 
Dr  ex. el  University 
Philadelphia,  Pennsylvania 


ABSTRACT 

This  paper  studies  the  matrix  cracking  sequence  in 
[02/902)3  graphite-epoxy  laminates  that  contain  a  small 
central  hole.  Experiment  was  perlormed  test  using 
specimens  loaded  in  uniaxial,  quasi-static  tension,  followed 
by  inspections  of  the  specimen  at  several  prescribed 
loading  increments  by  means  ol  x-radiography.  The 
inspection  provides  a  quantitative  measurement  and  a 
physical  analysis  of  matrix  cracking  patterns  near  the  hole. 

A  numerical  procedure  based  on  a  throe  dimensional 
finite  olement  method  was  then  employed  to  simulate  the 
observed  matrix  cracking  patterns,  including  thdr  initiation 
and  growth  behaviors.  Here,  the  theory  of  ply  elasticity  and 
the  concept  of  brittle  fracture  are  used  as  basis  tor  the  finite 
element  simulation. 

A  comparison  between  the  simulated  and  the 
expenmental  results  is  presented. 

1.  INTRODUCTION 

Failure  analysis  of  fiber-reinforced  composites  has 
attracted  increased  interest  in  recent  years.  Application  of 
composites  in  high-performance  aircraft  and  spacecraft 
structures  has  led  the  researchers  to  carry  out  intensive 
experimental  and  theoretical  studios  on  failure  mechanisms 
m  a  variety  of  composite  materials.  For  a  special  class  of 
composites,  namely,  polymeric  laminates  made  by 
laminating  unidirectional  continuous  fiber  systums,  failure 
initiation  usually  involves  some  forms  of  matrix  cracking. 
When  viewed  at  the  laminating  ply  level,  these  can  be 
classified  into  two  basic  forms.  One  basic  form  is  known  as 
intraply  cracking,  where  a  ply  or  several  plies  ol  the  same 
fiber  onentaficn  that  formed  a  layer,  suiters  a  through-the- 
thickness  cracK  along  the  fiber  direction.  A  simple  example 
of  intraply  cracking  is  found  in  a  (0/90]s  type  laminate  under 
axial  tension,  in  which  the  inner  90°-layer  suffers  multiple 
transverse  cracks.  The  other  basic  form  is  interply  cracking, 


where  two  adjacent  plies  in  the  laminate  sutler  a  separation 
in  their  interface.  Free  edge  delamination  in  a  [-U5/0/90]s 
laminate  loaded  in  axial  tension,  for  instance,  provides  a 
case  of  interply  cracking. 

Studies  of  the  individual  growth  mechanisms  ot  the  two 
basic  forms  of  matrix  cracking  have  been  extensively 
reported  in  the  literature  (see.  e.  g.  [1,2)).  Interactions  of  the 
two  basic  forms  of  cracking  were  examined  pamally  in  [3,4]. 
The  problems  studied  in  [1-3]  concurnud  cracking 
development  in  plain  laminates,  while  the  problem  studied 
in  [4)  involved  laminates  that  contain  sharp  through-tho- 
thickness  notches. 

The  problem  of  laminates  with  a  through-hole  has  also 
attracted  considerable  attention.  Effects  ol  ply  stacking 
sequence  [5]  and  different  material  combinations  [G]  on 
global  laminate  strength  reduction  due  to  presence  of  a 
small  hole  were  among  the  early  internets.  Subsequent 
analyses  have  tocussed  on  the  detailed  stress  distribution 
around  the  hole,  especially  the  interlaminar  stresses  that 
cause  local  delamination  [7-9].  In  these  works,  delamination 
(interply  cracking)  is  assumed  to  take  placo  as  lhe  only 
matrix  cracking  mode.  Expenments  using  graphite-epoxy 
laminates  have  shown,  however,  that  the  tirst  matrix 
cracking  form  near  the  hole  is  usually  not  delamination. 

In  the  present  study,  we  use  a  [C^/bOojg  graphite-epoxy 
laminate  with  a  small  central  hole  to  examine  the  initiation 
and  growth  patterns  of  matrix  cracks  near  tr.u  hole.  In  fins 
case,  a  three  dimensional  stress  analysis  bused  on  ply 
elasticity  performed,  which  shows  that  severe  stress 
concentrations  along  the  hole  boundary  are  present,  and 
matrix  cracks  ot  different  forms  may  initiate  and  propagate 
at  these  locations.  At  the  same  time,  experiments  perlormed 
on  test  specimens  and  inspected  by  x-radiography  at 
different  loading  levels  reveal  the  exuct  sequence  ol  the 
various  cracking  events.  Thus,  the  purpose  ol  this  study  is  to 
relate  the  experimental  events  with  the  analysis  by  means 
of  a  finite  element  simulation.  A  comparison  is  then  made 
between  the  simulated  and  lhe  experimental  results. 
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2.  EXPERIMENT  AND  RESULTS 


simulated  results.  However,  we  shall  defer  the  discussion 
on  simulation  later  in  the  next  section. 


In  the  experiment,  test  coupons  were  made  from  AS4- 
3501-06  graphite-epoxy  prepreg  tapes.  The  lamination 
stacking  sequence  was  limited  to  (02/902]s.The  dimensions 
ot  the  test  coupons  were  25.4  mm  wide,  228.6  min  long  and 
1.016  mm  thick.  The  radius  ol  the  central  hole  was  3.175 
mm.  Loading  was  applied  axially  on  an  Instron  tester,  with 
the  cross-head  speed  set  at  0.25  mm  per  minute.  The 
loaded  specimens  were  periodically  inspected  by  DIB 
enhanced  x-radiography. 

Experimental  results  show  three  major  lorms  of  matrix 
cracking  that  emanate  from  the  hole  during  loading.  In  their 
order  of  occurrence,  these  are  (1)  horizontal  transverse 
cracks  (mtraply  cracking)  in  the  inner  90°-layer  in  the 
immediate  region  of  the  hole  initially,  and  away  from  the 
hole  region  subsequently;  (2)  vertical  splitting  cracks  (also 
a  lorm  of  intraply  cracking)  in  the  outer  0°-layers  emanating 
from  the  hole  and  propagating  stably  away  from  the  hole; 
and  (3)  delamination  (interply  cracking)  in  the  0/90  interface 
along  the  length  of  the  0°-layer  splits,  which  displays  a  very 
stably  growth  behavior.  Figure  1  is  a  schematic  illustration 
of  the  cracking  development  patterns  at  five  typical  laminate 
stress  levels.  It  can  be  seen  mat  a  few  (two  or  three)  90°- 
layer  transverse  cracks  and  an  initial  sign  of  0°-layer  splits 
are  present  at  about  276  MPa.  At  379  MPa,  four  branches  of 
0°-splitting  nave  already  formed  and  propagated  stably 
towards  the  top  and  bottom  of  the  specimen.  Note  that 
propagation  of  the  splits  are  accompanied  by  more  90°- 
layer  transverse  cracks,  see  illustration  at  465  MPa.  At  552 
MPa,  delamination  in  the  0/90  interlace  has  already 
occurred  along  each  of  the  four  0°-layer  splits.  While  the 
delammation  grows  stably  with  load,  more  transverse 
cracks  have  formed  and  the  longer  the  0°-splits  have 
grown,  see  illustration  at  724  MPa.  At  this  load  level,  matnx- 
related  damage  around  the  hole  is  substantial;  but  no 
significant  tiber  breakage  has  yet  occurred.  In  fact,  the 
specimen  can  sustain  a  laminate  stress  of  more  than  1000 
MPa  before  it  breaks  completely  through  the  hole  section. 

T:  express  quantitatively  the  oosc.ieu  matrix  cracking, 
we  choose  to  display  two  separate  cracking  quantities  in 
terms  of  the  applied  laminate  stress.  The  first  is  the  linear 
length  of  the  0°-layer  split  and  the  second  is  the  area  of  the 
0/90  interface  delamination.  Since  for  each  specimen  there 
are  four  branches  of  splits,  which  grow  stably  with  load,  a 
mean  length  is  obtained  from  measuring  all  four  splits  at 
each  load  interval.  Figure  2  shows  the  mean  split  length 
plotted  against  the  laminate  stress  (in  MPa),  where  the  data 
are  from  a  sample  of  six  specimens.  It  is  seen  that  the  mean 
split  grows  almost  linearly  with  the  applied  laminate  stress; 
and  by  extrapolation  of  the  data,  we  can  deduce  that  the 
onset  stress  for  0°-layer  split  is  at  about  120  MPa.  The  solid 
line  in  the  figure  represents  the  simulated  split  growth.  The 
adequacy  of  the  simulated  result  will  be  discussed  in  the 
next  section. 

Similarly,  Figure  3  shows  the  mean  delamination  area 
measured  from  the  same  six  specimens  (the  areas  were 
measured  from  the  x-radiographs  using  an  image 
analyzer).  Here  again,  we  see  that  the  delamination  growth 
rate  is  quite  slow  initially  but  becomes  rapid  as  the  laminate 
stress  is  increased.  Data  extrapolation  yields  the  onset 
stress  at  about  220  MPa.  The  solid  line  in  this  figure  is  the 


3.  SIMULATIONS  AND  RESULTS 

The  Finite  Element  Model 

The  problem  of  a  laminate  with  a  single  central  hole 
stems  from  the  large  composite  structural  panel  with  bolt  or 
rivet  holes.  In  these  large  structural  laminates,  the  holes  are 
often  periodically  placed.  Assuming  that  the  holes  are 
located  so  far  apart  that  they  do  not  interact  with  each  other, 
then  a  periodic  element  of  the  panel  containing  only  one 
hole  can  be  considered  for  analysis,  see  Figure  4a.  For  the 
problem  considered  here,  the  lay-up  of  the  specimen  is 
[0279021s  add  the  hole  is  placed  at  the  laminate  center. 
Thus,  it  is  sufficient  to  model  one-eighth  the  specimen  due 
to  symmetry  as  shown  in  Figure  4D.  Since  stress 
concentration  is  expected  around  the  hole  boundary,  a  finer 
finite  element  mesh  is  deployed  in  this  region  in  order  to 
capture  the  true  nature  of  stress  concentration. 

It  is  noted  that  the  basis  of  the  finite  element  analysis  is 
the  assumption  of  ply  elasticity,  that  is  that  the  graphite- 
epoxy  unidirectional  ply  is  assumed  as  an  elastic, 
homogeneous  and  orthotropic  medium.  The  elastic  and  the 
thermal  expansion  constants  of  the  AS-3501-06  ply  system 
were  characterised  and  given  in  [1 1  ].  The  basic  finite 
element  is  a  21 -node  solid  brick  and  the  computation  is 
performed  on  a  CRAY  X/MP  computer.  Details  of  the 
computational  procedures  are  contained  in  a  separate 
user's  manual  [1 2). 

Stresses  Near  the  Hole  Boundary 

The  laminate  stress  fields  are  calculated  for  two  types  ot 
loading,  the  first  is  by  prescribing  a  far-liold  laminate  strain 
of  ex  ■  10-*,  and  the  other  is  by  prescribing  a  uniform 
temperature  change  of  AT  =  -1°C.  Stress  due  to  combined 
tension  and  temperature  change  can  be  obtained  by 
superposition.  The  stress  field  near  the  hole  boundary  is  in 
a  complicated  three  dimensional  state.  It  is  not  of  interest 
here  to  examine  all  of  the  stress  distributions  in  detail. 
Rather,  we  shall  display  only  some  typical  ones  that  are 
thought  to  cause  matrix  cracking. 

Figure  5  is  a  display  of  the  xy-plane  distribution  for  the 
six  stress  components  which  exist  in  the  0°-layur  near  the 
0/90  interface.  Here,  the  largest  stress  is  ox  which  is  in  the 
fiber  direction.  But  when  compared  to  the  ply  strength  in  the 
fiber  direction  this  stress  is  rather  insignificant  in  causing 
failure.  Other  stresses  that  may  cause  matrix  failure  are  oy 
and  xXy.  These  two  combined  can  cause  longitudinal 
splitting  in  this  layer.  The  interlaminar  stiuar  stresses  tzx 
and  x2y  are  relatively  small  but  could  precipitate  0/90 
interface  de  lamination. 

Figure  6  is  a  similar  display  for  the  stresses  in  the  90°- 
layer  near  the  mid-plane  of  the  laminate. Here,  we  see  the 
dominance  of  ox  which  is  normal  to  the  fibers  in  this  layer. 
Concentration  near  the  hole  region  will  be  certain  to  cause 
transverse  cracks.  All  other  stresses  however  have 
secondary  influence. 

The  above  stress  distributions  are  computed  for  tension 


loading  only.  We  also  need  the  stress  distribution  due  to 
thermal  cooling  ot  the  laminate  in  order  to  evaluate  the 
combined  stress  state.  For  the  laminate  used,  AT  is  set  at  - 
140  °C.  For  simplicity  however,  we  shall  omit  the  display  ot 
the  thermal  stresses  here. 

From  the  stress  analysis,  it  appears  that  0°-layer 
splitting  and  90°-layer  transverse  cracking  are  equally 
likely  to  occur  first.  However,  because  ot  the  high  stress 
gradient  near  the  hole  boundary  it  is  not  possible  to  make  a 
prediction  as  to  which  of  these  two  forms  of  matrix  cracking 
will  first  occur.  In  what  follows,  we  attempt  to  simulate  the 
onset  and  propagation  of  some  of  these  cracking  forms  from 
a  fracture  point  of  view. 

Simulation.Qf  Q°-Laver  Splitting 

In  the  simulation  of  0°-layer  splitting,  it  is  assumed  that 
D0°-layer  transverse  cracks  are  absent  while  the  split  grows 
with  loading.  This  assumption  is  necessary  to  reduce  the 
geometric  complexity  of  the  cracked  laminate.  It  is  felt  that 
omission  of  the  transverse  cracks  will  not  adversely  affect 
the  accuracy  of  the  simulation,  at  least  not  the  onset  of 
splitting.  To  simulate,  a  small  split  length  s0  is  introduced  in 
the  0°-layer  as  shown  by  the  inserted  sketch  in  Figure  7. 
This  small  split  represents  an  effective  material  flaw  which 
exists  at  the  hole  boundary  and  propagates  to  become  a 
split  whenever  the  critical  condition  is  reached.  Under  the 
far-field  constant  strain  loading,  the  split  is  assumed  to 
propagate  stably  in  the  fiber  direction.  Thus,  the  finite 
element  routine  is  to  calculate  the  stresses  and  the  strain 
energy  release  rate  G  at  the  split-tip  as  a  function  of  split 
length  s. 

Figure  7  shows  the  variation  of  oy  at  the  split-tip  with  the 
split  length  s.  It  is  believed  that  this  stress  is  responsible  for 
the  initiation  and  continuation  of  the  split.  From  the  figure, 
we  see  that  oy  is  large  when  s  is  small;  but  it  decreases 
sharply  with  increase  of  s.  On  the  other  hand,  the 
associated  split-tip  shear  stress  txy,  which  is  not  shown 
here,  becomes  relatively  more  dominant  with  increase  in  s. 
This  indicates  that  once  the  split  starts,  it  will  propagate 
stably  and  in  shearing  mode. 

The  corresponding  stresses  due  to  thermal  cooling  are 
also  calculated;  their  effect  on  splitting  is  included  in  the 
prediction,  which  is  to  be  discussed  below. 

As  mentioned,  we  first  introduce  a  small  split  length  s0 
and  then  calculate  the  split-tip  strain  energy  ro.uase  rate 
G(s)  as  a  function  of  s  a  s0.  G(s)  can  be  expressed  in  terms 
of  the  applied  tension  ex  and  thermal  loading  AT  as  [5]: 

g(s).={[^  -},  i=ui'"1  (i) 
where  the  coefficients  Ca  and  Cj  are  (unctions  of  s  and 
represent  the  strain  energy  release  rates  corresponding  to 
ex  =  1  and  AT  =  -1  °C,  respectively.  The  parameter  d  is  a 
length  scale  factor  which  is  set  at  unity  in  this  study.  Finally, 
the  subscript  i  refers  to  cracking  modes  of  I,  II  and  III  (open, 
sliding  and  antiplane  shear). 

Now,  Figures  8  and  9  show,  respectively,  the 
coefficients  Ce  and  Cj  versus  the  split  length  s.  Note  that 
Ce  is  predominantly  of  mode  II,  while  Cj  is  predominantly 
of  mode  I.  Thus,  the  combined  crack  growth  is  in  mixed 


mode. 

The  growth  behavior  of  mixed  mode  matrix  cracking  is 
discussed  in  (11)  and  a  criterion  based  on  the  total  energy 
release  rate  is  suggested: 

Zg(s),  =  Gc  (2) 

where  Gc  is  the  total  critical  strain  energy  release  rate  for 
mixed  mode  cracking.  For  the  material  used  hero,  Gc  has  a 
value  estimated  at  289  J/m2. 

By  using  the  coefficient  curves  in  Figures  8  and  9,  we 
can  obtain  from  (1)  and  (2)  the  critical  laminate  strain  ex  as 
a  function  of  split  length  s.  The  computed  critical  laminate 
strain  can  be  readily  converted  in  laminate  stress;  the  stress 
versus  s  relation  is  shown  in  Figure  2  by  the  solid  line.  It  is 
seen  that  the  calculated  result  agrees  initially  with  the 
experiment,  predicting  the  onset  of  splitting  As  the  split 
grows  longer,  the  splitting  mechanisms  are  complicated  by 
transverse  cracking  and  also  by  delamination.  Since  these 
complicating  mechanisms  are  not  included  in  the  splitting 
simulation  model,  a  discrepancy  between  the  experiment 
and  the  prediction  results. 

Simulation  of  0/90  Interface  Delaminatisn. 

In  the  simulation  of  the  0/90  interface  delamination,  an 
idealization  is  also  made.  Namely,  we  assume  that 
delamination  occurs  after  the  0°-layer  splitting  has  grown  a 
sufficient  length  so  that  delamination  is  proceeding  as  an 
independent  event.  The  simulation  is  carried  out  to  mimic 
the  delamination  shape  as  observed  in  the  experiment.  The 
simulated  shape  is  schematically  shown  in  Figure  10.  Here, 
we  calculate  the  mean  strain  energy  release  rate 
coefficients  at  the  delamination  front  as  a  function  of  the 
total  delaminated  area,  see  Figures  11  and  12.  Then,  by 
means  of  the  criterion  in  (2)  we  obtain  the  delamination 
area  versus  laminate  stress  relation  as  shown  in  Figure  3 
by  the  solid  line.  Again,  the  prediction  for  the  onset  of 
delamination  is  close,  but  discrepancy  results  once  the 
delamination  has  grown  larger.  This  is  expected  because 
the  actual  growth  of  delamination  is  concurrent  with  other 
forms  of  matrix  cracking,  as  discussed  earlier  in  the 
experimental  study.  This  complex  mechanics  mechanisms 
was  not  included  in  the  simulation  model. 

4.  CONCLUSIONS 

In  this  paper,  we  have  shown  that  growth  of  matrix 
cracks  in  the  vicinity  of  a  small  hole  in  a  laminate  can  be 
reasonably  simulated  by  a  finite  element  routine  based  on  a 
careful  fracture  mechanisms  analysis.  Still,  the  actual 
mechanisms  are  complicated  and  the  simulation  has  to 
resort  to  some  degree  of  idealization.  This  causes 
discrepancies  between  the  simulated  results  and  the 
experiment.  It  is  conceivable  that  these  discrepancies  can 
be  considerably  removed  if  more  is  known  about  the 
physics  of  the  phenomenon  at  the  microscopic  level  and  if  a 
more  powerful  simulation  technique  is  available. 

Acknowledgment? :  Results  reported  in  this  paper 
were  obtained  during  the  course  of  research  supported  by  a 
grant  from  the  Air  Force  Office  of  Scientific  Research. 


bb 


l 


REFERENCES 

A.S.D.  Wang  and  F.W.  Crossman,  "Initiation  and 
Growth  o(  Transverse  Cracks  and  Edge 
Delamination  in  Composite  Laminates,  Part  1,  An 
Energy  Method",  J.Composite  Materials,  Vol.  4,  pp. 
71-87,  1980. 

F.W.  Crossman,  W.J.  Warren,  A.S.D.  Wang  and  G.E. 
Law,  "Initiation  and  Growth  of  Transverse  Cracks 
and  Edge  Delamination  in  Composite  Laminates, 
Part  2,  Experimental  Correlation",  J.  Composite 
Materials,  Vol.  14,  pp.  88-106,  1060. 

A.S.D.  Wang,  N.N.  Kishore  and  C.A.  Li,  "Crack 
Development  in  Graphite-Epoxy  Cross-ply 
Laminates  Under  Uniaxial  Tension",  Composites 
Science  and  Technology,  Vol.  24,  pp.  t-31 ,  laa5. 

A.S.D.  Wang,  E.S.  Reddy  and  Yu  Zhong,  "Three 
Dimensional  Simulation  of  Crack  Growth  in  Notched 
Laminates',  to  he  presented  at  Joint  Symposium  on 
Composite  Materials  Science  and  Engineering, 
American  Society  for  Composites  -  University  of 
Delaware  Center  for  Composite  Materials, 
September  23-25,  University  of  Delaware,  Newark 
DE,  1987. 

E.F.  Rybicki  and  D.W.  Schmueser,  “Effect  of 
Stacking  Sequence  and  Lay-up  Angle  on  Free 
Edge  Stresses  A  round  a  Hole  in  a  Laminated  Plate 
Under  Tension",  J.  Composite  Matenals,  Vol.  12,  pp. 
300-313, 1978. 


3CP 


[6]  I.M.  Daniel,  R.E.  Rowlands  and  J.B.  Whiteside, 
"Effects  of  Materials  and  Stacking  Sequence  on  the 
Behavior  of  Composite  Plates  with  Holes", 
Experimental  Mechanics,  Vol.  14,  pp.  1-9, 1974. 

[7]  T.K.  O'Brien  and  I.S.  Raju,  “Strain  Energy  Release 
Rate  Analysis  of  Delamination  Around  an  Open 
Hole  in  Composite  Laminates",  Paper  No.  AIAA-84- 
0961,  AIAA/ASME/ASCE/AHS  25th  Structures, 
Structural  Dynamics  &  Materials  Conference,  May 
14-16,  Palm  Springs  Ca.,  1984. 

[8]  I.S.  Raju  and  J.H.  Crews,  “Three-Dimensional 
Analysis  of  [0/90]s  and  [90/GJs  Laminates  w.tn  a 
Central  Circular  Hole",  Composite  Technology 
Review,  Vol.  4,  No.  4,  pp.  116-124,  1982. 

[9]  L.  Carlsson,  "Interlaminar  Stresses  at  a  Hole  in  a 
Composite  Member  Subjected  to  a  In-plane 
Loading",  J.  Composite  Materials,  Vol.  17,  pp.24i, 
1983. 

[10]  K.  Ericson,  M.  Persson,  L.  Carlsson  and  A. 
Gustavsson,  "On  the  Prediction  of  the  Initiation  of 
Delamination  in  a  [0/90]s  Laminate  with  a  Circular 
Hole",  Journal  of  Composite  Materials,  Vol.  18,  pp. 
495-506, 1964. 

[11]  A.S.D.  Wang.  W.  Bimenda,  Yu  Zhong  and  E.S. 
Reddy,  “Mixed  Mode  Fracture  of  Uniaxial  Fiber 
Reinforced  Composites",  NADC-TR-871 33-60, 
Naval  Air  Development  Center,  Warminster,  Pa. 
18974,  April  1987. 

[12]  E.S.  Reddy,  N.N.  Kishore  and  A.S.D.  Wang,  "A 
Three  Dimensional  Finite  Element  Code  and  Users' 
Manual  for  Matrix  Cracking  in  Laminates",  Droxel 
University  Technical  Report,  September  1987. 


Figure  1.  Progression  cf  Matrix  Cracking  Under  Ascending  Laminate  Stress. 
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1  GENERAL  PROGRAM  CHARACTERISTICS 


1.1  INTRODUCTION 

This  computer  code  has  been  developed  for  an  independent  and  self 
contained  operation.  The  program  is  written  in  FORTRAN  77  language, 
adaptable  to  any  medium  or  large  computer.  The  main  function  of  the 
program  is  to  simulate  numerically  the  initiation  and  growth  of  a  plane 
crack(s)  in  a  3-D  solid,  specifically,  delamination  or  splitting  or 
delamination  with  a  split  in  composite  plates.  The  plate  may  be  subjected 
to  either  mechanical  loading,  thermal  loading  or  both.  In  order  to 
determine  the  layer  interface  which  is  likely  to  suffer  delamination  under 
the  given  loading,  a  search  must  be  conducted  by  computing  the  interlaminar 
stresses.  Once  the  site  of  delamination  is  determined,  the  program  will 
then  simulate  the  delamination  growth  under  the  applied  loads. 

The  present  computer  code  can  handle  (i)  splitting  along  the  fiber 
di  reel,  i  ona ,  (ii)  delamination  having  a  plane-contour  of  arbitrary  shape  and 
(ill)  delamination  in  the  presence  of  an  opened  split.  The  changes  in  the 
boundary  conditions  as  the  delamination  grows  are  automatically  adjusted  in 
the  program.  There  is  no  limitation  to  the  number  of  layers  or  the 
stacking  sequence.  The  layers  may  have  different  thicknesses  and  material 
properties.  Each  layer  is  assumed  to  be  a  homogeneous,  orthotropic  clastic 
medium  with  one  of  its  principal  axes  aligned  in  the  thickness  directions 
of  the  plate  ( 7,-axis). 

The  code  is  divided  into  threo  independent  programs:  t hn 
preprocessor,  the  main  code,  and  the  post  processor .  The  separation  of  the 
cod e  in  three  stages  allows  modifications  to  bo  nndo  in  the  data  at  the  end 


of  each  particular  program  so  that  certain  parametric  studios  can  bo 
performed  in  one  stage  without  repeating  the  calculations  performed  in  the 
previous  stage. 


1.2  T1IF,  PREPROCESSOR  PROGRAM 
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This  is  the  first  stage  in  the  solution  of  the  delamination  problem. 
The  input  data  necessary  for  this  program  consists  of  the  specimen 
gcomotry,  mesh  plan,  layer  material  properties,  boundary  conditions  and  the 
double  nodes  (double  nodes  are  a  pair  of  nodal  points  which  occupy  the  same 
spatial  position).  The  output  of  this  program  consists  of  the  full  details 
of  the  finite  element  mesh  together  with  the  numbered  nodes,  including  the 
double  nodes.  Although  this  output  data  is  sufficient  to  run  the  second 
stage,  the  data  to  be  input  into  the  main  code,  the  data  still  needs  to  be 
supplemented  with  the  crack  opening  sequence  data  set  which  can  be 
formulated  only  following  the  output  from  the  preprocessor. 

1.3  THE  MAIN  CODE,  KSAP  II 


As  the  name  implies,  this  is  the  main  part  in  the  solution  procedure. 
The  output  data  from  the  first  stage,  together  with  the  crack  opening 
sequence  data  serves  as  the  input  data  for  this  program.  The  program 
solver;  the  three  dimensional  problem  using  an  8  or  21  node  solid  element 
with  three  degrees  of  freedom  (x,y,z)  for  each  node. 


1.4  THE  POSTPROCESSOR  PROGRAM 

The  post  processor  mainly  produces  3-D  plots  of  the  stresses  with 
hidden  lines  removed.  The  input  data  for  this  programs  is  a  modifier] 


1  .  2 


output  file  from  the  KSAP  II  program.  Various  stress  distribution  plots 
can  lie  output  along  any  specified  plane.  The  three-dimensional  plots  can 
be  processed  at  any  specified  viewing  direction. 

The  details  of  preprocessor  program  and  the  input  can  be  found  in 
Chapter  2.  The  modifications  to  the  preprocessor  output  which  are  needed 
before  it  can  be  used  further  are  found  in  Chapter  3.  Chapter  4  describes 
the  features  of  the  KSAP  II  code  and  Chapter  5  describes  the  details  of 
postprocessor  program.  Chapter  6  contains  an  illustrative  example  to 
explain  the  working  of  the  total  code.  The  FORTRAN  source  listings  of  the 
various  parts  of  the  code  and  their  outputs  are  included  in  the  Appendices 
A  through  n. 
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FLOW  CHART  FOR  '  KSAP  TT '  PROGRAM 


2  THE  STRUCTURE  OF  THE  PREPROCESSOR  PROGRAM 


2.1  INTRODUCTION 

The  preprocessor  program  generates  the  input  data  required  for  the 
main  code,  KSAP  II.  The  input  data  required  for  the  preprocessor  program 
pertains  to  the  dimensions  of  the  plate,  mesh  plan,  material  properties  of 
the  layers,  and  the  boundary  conditions.  In  it's  present  form,  this 
program  can  generate  data  only  for  brick  type  elements  with  either  8  nodes 
representing  the  8  corners  of  the  element  or  21  nodes  as  shown  in  Figure 
2.1. 

There  are  two  options  in  generating  the  mesh,  one  is  for  rectangular 
mesh  for  laminates  without  any  curved  boundaries  and  the  other  is  for 
generating  mesh  in  a  laminate  with  a  central  hole.  The  mesh  pattern  in  the 
later  one  is  chosen  to  accomodate  split(or  split  growth)  tangential  to  the 
hole  boundary  along  the  loading  direction.  There  is  no  limitation  on  the 
number  of  layers  or  the  stacking  sequence.  Depending  on  the  symmetry  in 
geometry  and/or  loading,  one-half,  one-quarter  or  one-eighth  of  the  plate 
may  he  analyzed.  The  displacement  and  force  boundary  conditions  have  to  be 
appropriately  specified  in  order  to  take  the  advantage  of  symmetry. 

The  program  automatically  assigns  numbers  to  nodal  points,  and 
cartesian  coordinates  to  each  node  according  to  input,  data.  The  nodes  are 
numbered  in  an  orderly  fashion  in  x,  v,  z-direct ions  and  the  8  (or  21) 
nodes  for  each  element  can  be  generated  arbitrarily  from  the  set.  of 
,  coordinates  given  in  x,  y  and  z  directions.  The  dimensions  of  elements  in 

anr  direction  can  be  controlled  by  changing  the  coordinates  in  that. 

j 
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direci inn  and  thereby  the  density  of  the  mesh  in  any  region  can  be  changed. 


The  thermal  loading  simulatation  requires  two  data  sets:  assigning 
stress  free  temperature  for  each  element  and  prescribing  the  temperature  at 
which  the  plate  is  to  be  analyzed  for  delamination.  The  stress  free 
temperature  is  assigned  to  each  element  while  generating  the  elements.  The 
temperature  at  which  the  plate  is  to  be  analyzed  is  provided  while 
generating  nodal  points.  The  temperature  distribution  need  not  be  uniform 
for  the  whole  plate  and  each  node  can  be  assigned  a  different  temperature. 
The  details  of  this  data  input  is  explained  in  the  next  section  2.2. 

Mechanical  loading  can  be  either  a  prescription  of  forces  or  a 
prescription  of  non-zero  displacements  at  the  nodes.  The  details  of 
prescribing  force  boundary  conditions  are  found  in  section  2.2.  A  plate 
subjected  to  uniform  strain  can  be  simulated  by  assigning  non-zero 
displacements  to  the  appropriate  nodes.  These  non-zero  displacements  are 
changed  to  force  boundary  conditions  by  attaching  a  linear  spring  with  a 
large  stiffness  value  (k)  to  each  node  in  the  given  displacement  (d) 
direct  ion  and  applying  a  force  (=k  x  d)  at  the  other  end  of  the  spring. 
These  boundary  elements  do  not  increase  the  total  degrees  of  freedom  of  the 
stiffness  matrix.  The  nodes  having  zero  displacements,  which  are  used  to 
spec j ry  the  symmetric  planes,  do  not  make  use  of  these  boundary  elements 
and  t  bey  essenetially  remove  those  degrees  of  f reedom  from  the  svstem  of 
equal  ions. 

The  main  program,  KSAP  II  can  simulate  a  r.rnck  opening  along  a 
symmetric  plane  or  along  any  plane  -iven  by  x  ^constant.  or  y-constant  or 
z-constnnt.  For  example:  the  interlaminar  boundary  (layer  interface! 
corresponds  to  z=constant.  A  crack  along  a  symmetric  plane  (  e.g.  the 
mid-plane  of  a  symmetric  laminate)  is  simulated  bv  suitably  changing  the 
boundary  conditions  at  those  nodes  on  that,  plane,  which  will  lie  released  t  e 


simulate  crack  opening.  The  degrees  of  freedom  of  these  nodes  must  he 
retained  if  a  crack  is  to  be  simulated  along  the  plane  of  symmetry.  Hence 
they  should  not  be  removed  by  giving  zero  displacement  in  the  direction  of 
crack  opening.  The  crack  opening  instruction  along  these  nodes  is 
explained  in  the  next  chapter.  If  a  crack  opening  along  a  plane  other  than 
t ho  symmetric  plane  is  to  be  simulated  then  double  nodes  are  to  bo  assigned 
for  eni  h  nodal  point  located  on  that  plane.  The  double  nodes  need  not  be 
taken  into  account  while  generating  the  initial  set;,  ot  elements  and  nodes. 
Given  the  plane  of  crack  (1  for  yz-plane,  2  for  zx-plane  and  3  for 
xy-pl ano) ,  the  preprocessor  program  has  t  lie  capability  to  ronnmber  the  mesh 
and  update  the  node  numbers  for  each  element.  wh<-n  the  instruction 
pertaining  to  the  double  nodes  is  supplied. 

A  complete  listing  of  the  preprocessor  program  can  be  found  in 
Appendix  A.  The  following  flow  chart  shown  on  the  next  page  illustrates 
the  general  structure  of  the  preprocessor  prog. ram. 


2.2  DATA  INPUT  TO  PREPROCESSOR  PROGRAM 


The  input  data  required  for  the  preprocessor  is  made  very  simple  and 
is  kept  to  a  minimum.  For  example,  the  element  veneration  (assigning  node 
numbers  to  the  elements)  can  be  done  in  only  a  few  cards  as  explained  in 
Sect,  ion  2.2.2. 


2.2.1  Details  of  the  Data  Input 


The  input  data  is  arranged  in  the  following  nine  groups  of  cards. 

Each  group  consists  of  one  or  more  cards.  Data  in  the  groups  I,  VI,  VII 

and  VIII  must  be  given  in  the  specified  format.  Each  ontrv  must  lie  made  in 

the  specified  columns  and  a  brief  explanation  of  the  entry  can  be  found  in 

entry  description.  The  name  listed  under  'variable'  j.s  the  name  used  for 

that  entry  in  the  program  listing.  The  data  j "  the  groups  II,  III,  IV  and 

V  may  he  given  in  free  format.  In  these  croups,  if  l ho  data  does  not  fit 

on  one  card,  it  may  be  continued  on  an  immediately  following  card.  Each  of 

the  groups  II,  VI  and  VIII  may  have  several  cards  and  the  program 

rec.erni.zcs  the  termination  of  that  group  only  when  it.  encounters  a  card 

with  -1  as  the  first  entry. 

Group  I  Heading  Card  (  Format  A72): 

HED(72)  -  heading  information  to  he  printed  with  the  outputs 

Group  FI  Mosh  Generation  Cards  (  Free  Format  ) 
card  ]  : 

f.TYPF  -  Type  of  Element  (8  nodr.  or  21  node) 

r  a  r  d  2: 

'TEJX ,  NONY ,  NONZ,  RAD 

-  Number  of  Nodes  in  X,  Y  and  7.  direction.'?.  Radius  of  the 
hole  (if  RAD=0  given,  rectangular  mooli  wil  l  he  generated. 

N’fTK:  If  NTYPE=21,  NONX,  NONY,  NONZ  have  to  ho  odd  numbers. 

card  A: 

XV C I ) ,  XX(2) . XX(NONX) 

-  x-  coordinates  of  the  nodes  in  t.ho  x-  dirortion. 

card  A; 

Y Y ( l ) ,  YY(2) . YY(NONY) 

-  v-  coordinates  of  the  node.'?  in  t  ho  v-  direction. 


,t.  *u  M«.1H 


),  ZZ( 2) ,  ...  ,  ZZ(NONZ) 

7-  coodinates  of  the  nodes  in  t.he  /.  -  direction. 


KOTF:  For  21-node  element  generation,  even  numbered  coordinates 
should  be  middle  points  of  immediate  ne ir.hbor ing  points, 
i.e. ,  for  i=2,4, . . . 

xx(i)=(xx(i-l)+xx(i+l))/2. 

yy(i)=(yy(i-i)+yy(i+i))/2. 

zz(i)=(zz(i-l)+zz(i+l))/2. 

Any  mistake  in  the  coordinates  of  even  numbered  coordinates 
will  be  corrected  by  the  preprocessor . 

For  a  laminate  with  a  hole,  x  and  y  coordinates  can  be  given 
with  hole  center  as  the  origin.  The  coordinates  of  some  of  the 
nodes  will  be  transformed  and  results  in  a  mesh  as  shown  in 
Figure  2.2. 

Group  J.II  Element,  Nodal  Property  Definition  Cards  (  Free  Format) 

card  I:  Nodal  temperature  at  which  analysis  is  to  he  carried  out 
N ,  TEND,  NEND,  INC 

-  N  -  starting  node  number 

-  TEMP  -  magnitude  of  temperature  of  the  node 

-  NFND  -  last  node  up  to  which  nodes  have  same  temperature 

-  INC  -  increment  between  N  and  NEND 

-1,  0.0,  0,  0  -  data  termination  card 


:  This  temperature  will  be  different  from  stress  froe  temperature 
of  the  element  (see  next  card)  for  thermal  loading  only. 

2:  Element  stress  free  temperature 
.  TEMP,  NEND,  INC 

-  N  -  starting  element  number 

-  TEMP  -  stress  free  temperature  of  the  element,  (curing  temp.) 

-  NEND  -  last  element  number  up  to  which  ol ononis  have  same 

t emperature 

-  INC  -  increment  between  N  and  NEND 

-1,  0.0,  0,  0  -  data  termination  card 

Element,  material  definition 
MATTE,  NEND,  INC 

",  -  st  nr  Ling  element:  number 

-  MATTE-  material  identificat  ion  number  ( ox  :  1  ,  2 . 1 .  . ) 

NFND  -  last,  element  number  up  to  which  node-:  have  same 

temperature 

-  INC  -  increment  between  N  n*>d  NT  N't) 

-1,  0,  0,  0  -  data  tormina' ion  r  ard 

:  i'll  i  s  card  is  to  identify  t  ho  o  1  i  -•  >•  I"  •  bi'h  mat  or  i  a  I  t  bev 

belong  to.  Mat  rr  i  al  proper t  i  o.-  lor  u  ,  1  i  , .  r .  -  n  •  i  dent  i  I  i  r  •>!  i  on 
numbers  are  given  in  later  cnH- . 


-r- /./F-.-  -  • 


iXkl 
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cirri  4:  Element  material  axis  orientation  definition 
N,  MORTT,  NEND,  INC 

-  N  -  starting  element  number 

-  MORTT-  material  axes  orientation  set  number  (ex: 1,2, 3..) 

-  NEND  -  last  element  number  tip  to  which  nodop  have  same 

temperature 

-  INC  -  increment  between  N  and  NEND 

-1,  0,  0,  0  -  data  termination  card 

card  5:  Element:  stiffness  matrix  reuse  definition 
Ml  ,  M2 
M3.  M4 


-  Ml, M3  -  starting  element  number 

-  M2,M4  -  last  element  number  upto  which  element  stiffness  is 

same 

-1,0  -  data  termination  card 

NOTE:  These  cards  to  identify  the  elements  with  the  same  stiffness  matrix 
and  thereby  saves  computational,  time.  A  number  of  ranges  (Ml, M2; 
M3,M4; . .etc. )  can  be  given  one  after  another. 

Group  TV  Split  or  plane  notch  definition  data  (Froo  Format) 

card  1 : 

••'•P.IDIR 

-NSD  -  number  of  nodes  lying  inside  the  split  0r  plane  notch 
region 

-T.DIR-  direction  number  normal  to  the  plane  of  the  notch 

if  the  normal  is  parallel  to  axis,  IDIR=1 

if  the  normal  is  parallel  to  y-  axis,  IDT.R=2 

if  the  normal  is  parallel  to  7-  axis,  IPTR-3 

' ;  ff  no  split  is  required  enter  0,1  and  skip  card  2. 

ran!  2:  node  numbers  defining  split:  region 
‘I.  NEND,  INC 

-  N  -  starting  node  number 

-  NEND  -  last:  node  number 

-  INC  -  increment  between  N  and  NFND 
-1 .  0,  n,  -  data  termination  card 

N'-T!  :  Vi.th  this  card,  number  of  splits  can  be  do(  in^d  in  parallel 
planes.  Split  defined  by  this  card  j s  simulated  by  doubling 
the  nodes  but  these  double  nodes  c.annet  lie  usnd  to  simulate 
crack  growth.  In  order  to  road  t  dm  d  I  spl  nr^oni  output,  of 
l ho  nodes  inside  the  split,  rotor  to  cor rospnd ing  double 
undo':  given  in  the  output  file  ’  I'f'nni  n .  p  vp  ’  . 


•Vv>;  v(y'v;>V 


•v/v.'V/W'f.v 


Group  V  Delamination  definition  data  (Free  Format) 

card  l: 

NTD 

-NTD  -  total  number  of  nodes  defining  delnminntiom  rop,ion 
If  there  are  no  double  nodes  in  the  problem  enter 
0  and  skip  card  2 

card  2:  node  numbers  defining  delamination  region 

NOND(l),  N0ND( 2) ,  . . . .NOND(NTD) 

NOTE:  The  double  nodes  and  the  corresponding  original  nodes  are  not. 
written  in  a  separate  output  file.  They  are  given  in  KSAPIN.DAT 
itself.  They  are  arranged  in  the  ascending  order  of  the  original 
nodes  to  fecilitates  easy  modification  of  KSAPIN.DAT  for  crack 
growth  simulation.  So,  it  is  advisable  to  give  the  nodes  here  in 
the  order  of  their  release. 

For  21  node  element,  face  center  nodes  arc  not  used  in  KSAP  IT 
and  hence  they  are  eliminated  from  the  double  node  list  by  the 
preprocessor. 

card  3: 

XF,  XU,  YL,  YU,  ZL,  ZU 

-  XL,  XU  -  lower  and  upper  bounds  of  x-  coordinate  of  the 

laminate  boundary  in  which  second  sot  of  double 
nodes  are  to  be  placed. 

-  YL,  YU  -  lower  and  upper  bounds  of  v-  coordinate  of  the 

laminate  boundary  in  which  second  set  of  double 
nodes  are  to  be  placed. 

-  ZL,  ZU  -  lower  and  upper  bounds  of  z-  coordinate  of  the 

laminate  boundary  in  which  second  set  of  double 
nodes  are  to  be  placed. 

Group  VI  Material  Property  Data 

Orthotropic,  temperature  dependent,  material  properties  may  be 
prescribed.  Here  L,T,Z  are  the  principal  axes  of  the  material. 
For  each  different  material  the  following  group  (a)  cards  must,  be 
supplied . 

(a)  Material.  Properties  (  Format  A4, 14  . \\ ,G1  7 . 7) 


card  1 : 


columns 

1-  4 

5-  8 
13-29 

co 1 nmns 


entry  descript  ion 
bbEL 

material  identification  number 

value  of  Young's  modulus  in  1, -direction 

entry  descri pt  i on 


I 


• "  *  »*’  **  •**.  -*  *** 
m":  Vm  r-kV-fc  '-A.  1\jl  "tJLx 


2 . 9 


card  3: 


5-  8 
13-29 


material  identification  number 

value  of  Young's  modulus  in  T-direction 


columns  entry  description 


1-  4 
5-  8 
13-29 

card  4: 

columns 


bbEZ 

material  identification  number 

value  of  Young's  modulus  in  Z-direction 

entry  description 


1-  4 
5-  8 
13-29 

card  5: 

columns 


NULT 

material  identification  number 
value  of  the  poisson's  ratio, 

entry  description 


1-  4 
5-  8 
13-29 

r  a  r  d  6 : 

columns 


1-  4 
5-  8 
13-29 

card  7 : 

columns 


NULZ 

material  identification  number 

value  of  the  poisson's  rat  in  v. 

J.7. 

entry  description 


NUTZ 

material  identification  number 
value  of  the  poisson's  ratio,  v 

entry  descript  ion 


1-  4 
5-  8 
1  3-29 

card  8: 

columns 


bGLT 

material  identification  number 
value  of  the  shear  modulus,  G^ 

entry  description 


1-  4 

5-  8 
1  3-29 

columns 


bGLZ 

material  identification  number 
value  of  the  shear  modulus,  G ^ 

entry  descript  ion 


1-  4 

3-  8 
1  3-29 

r  a  rd  ff)  ; 

columns 


1-  4 

5-  8 
13-29 

can]  11; 

columns 


1-  4 
5-  8 


bCTZ 

material  identification  number 
value  of  the  shear  modulus.  G 

entry  descri pi i on 


ALFL 

material  identifirai ion  number 
value  of  the  thermal  expansion  ennff., 

entry  descript  ion 


a 


.1. 


ALFT 

material  ident  i  fir  it  t  r  ■  n  numltoj- 


2  .  1  0 


V  V,V  s  a  „n  \  A  A  yw  A  A.»  . 


MKP'jw  >  7*z*7*r?z^rrrrrTrry  •  ■•  v  ■ 


13-29 

card  12: 

columns 


value  of  the  thermal  expansion  cocff., 
entry  description 


1-  4 
5-  8 
13-29 


ALFZ 

material  identification  number 
value  of  the  thermal  expansion  cocff. , 


NOTE:  If  any  of  these  12  cards  are  not  supplied  then  that  particular 
value  will  be  set  equal  to  zero. 

The  12  constants  (Ell.Ett, . . . ,  z)  are  defined  with  respect 
to  a  set  of  axes  (L,T,Z)  which  are  the  principal  material 
directions. 


(b)  Data  termination  Card  (Format  A4) 

columns  entry  description 


1-2 


-1 


indicates  the  end  of  material  property 
cards. 


(c)  Material  Axes  Orientation 


In  this  set  the  data  regarding  the  material  principal  axes 
(L,T,Z)  relative  to  the  global  axes  (x,v,z)  is  furnished.  There 
can  be  several  sets  of  orientations  and  one  card  should  be  input 
for  each  orientation  as  folloi'/s: 


columns 

variable 

entry  description 

1  -  5 

MORT 

material,  axes  orientation 

set  number 

6  -  10 

NI 

node  number  for  point  "i" 

11- 

15 

NJ 

node  number  for  point.,  "j" 

19- 

20 

NK 

node  number  for  point,  "b” 

Orientation 

set  numbers  (MORT)  must  be  input  in 

increasing 

sequence  beginning  with 


Orthotropic  material  axes  orientations  are  specified  by 
means  of  the  three  node  numbers,  NT , fU , NK .  For  the  special 
case  where  orthotropic  material  axes  coincide  with  the 
global  axes  (x,y,z),  it  is  not  necessary  to  Input  data  in 
this  section.  Let  fl,  f2.  f3  1m  the  throe  orthogonal 
vect  ors  which  define  the  a >ms  of  m.>torin1  ort  hot  ropv  t  lion 
their  directions  are  as  shown  1ml ow: 
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Node  numbers  NI,NJ,NK  are  only  used  Lo  locate  points  i,j,k 
respectively  and  any  convenient  nodes  may  be  used. 

End  the  material  orientation  definition  cards  with  -1  card. 

Group  VII  Force  boundary  conditions 

(Format  16, 1X.A4, 1X.F10.0, 12X, 16.16) 

columns  variable  entry  description 


1-6  N  node  at:  which  force  nets 

8-11  LABEL  direction  of  force  (in  nodal 

coodinate  system)  FX .  FY,  or  FZ 

13-22  FORCE  value  of  the  force 

35-40  NEND  !  If  NEND  is  greater  than  N  (for  H 

41-46  INC  !  positive)  all  nodes  from  N  thru 

NEND  in  steps  of  INC  has  this 
specified  force  (i.f  INC  is  left 
blank  it  is  assumed  to  be  1) 

NOTE:  N=-l  signifies  the  end  of  this  set  of  cards 

('•roup  VIII  Displacement  Boundary  Conditons 
(Format  I6,1X,A4, 1X.F10.0, 12X, 216) 

This  set  of  cards  is  used  to  constrain  nodal  displacements  to 
specified  values  and  to  compute  support  reactions.  Boundary 
elements  are  used  to  specify  strain  for  the  specimen.  The 
boundary  element  is  essentially  a  spring  which  has  an  axial 
displacement  stiffness  and  it  is  defined  bv  a  single  directed 
axis  through  the  specified  nodal  point.  Tf  any  nodal 
displacement  (UX,  UY  or  UZ)  is  specified  to  have  0.0  value 
then  that  degree  of  freedom  is  eliminated  from  the  stiffness 
matrix . 

columns  variable  entry  description 


LABEL 


13-22 

35-40 

41-46 


node  number  at  which  this 
displacement  will,  be  used 

type  of  displacement  boundary  condition 

value  of  the  displacement 


NEND  !  If  NEND  is  greater  than  N 

INC  !  (for  N  positive)  then  all  nodes 

N  thru  NEND  in  steps  of  INC  will  have 
this  specified  displacement 


NOTE :  N=-l  signifies  the  end  of  this  set  of  cards. 

LABEL  can  be  UX,  UY  or  UZ  (upper  ra-ei  which  means  that,  the 
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specified  displacement  is  in  x,  v,  K  7  directions  respectively. 

Group  IX  Stress  Output  Locations  (Free  Format) 

LOCI,  L0C2 ,  L0C3 ,  L0C4,  L0C5,  LOCO,  L0C7 
-  location  numbers  in  ascending  order 

NOTH:  In  KSAP  II,  there  is  a  provision  to  obtain  stresses  at  a  maximum  of 
7  locations  in  an  element.  Any  7  of  the  27  locations  shown  in  Figure 
2.3  can  be  chosen. 
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3  MODIFICATION  OF  THE  PREPROCESSOR  OUTPUT  DATA 


3.1  INTRODUCTION 

The  output  data  of  the  preprocessor  program  is  to  be  modified  before 
it  can  serve  as  input  data  to  the  main  code,  KSaP  II.  The  preprocessor 
program  will  output  two  files  of  data:  one  file  will  serve  as  input  daLa 
file  to  the  KSAP  II  code  and  the  other  file  contains  the  renumbered  double 
nodes  for  split  or  notch  simulation.  The  first  file  is  to  be  supplemented 
with  information  regarding  the  location  of  double  nodes  and  the  information 
regarding  crack  opening  node  sequence.  In  addition,  it  is  also  possible  to 
give  commands  to  selectively  print  the  stress  ouput. 

3.::  DOUBLE  NODES  AND  CRACK  OPENING  SEQUENCE 

A  double  node  is  originally  one  node  which  has  two  node  numbers. 
These  are  provided  in  the  plane  along  which  the  crack  propagation  is  to  be 
simulated.  The  double  nodes  serve  two  purposes.  If  the  displacements  of 
both  the  nodes  are  specified  to  be  same,  then  they  behave  as  one  single 
n< id i - .  T f ,  on  the  other  hand,  the  displacements  of  the  nodes  are  specified 
t  o  be  independent  then  they  behave  as  two  separate  nodes  thus  simulating 
crack  propagation  through  that  node.  Usually,  a  node  has  three  degrees  of 
freedom,  in  x ,  y , z-directions .  In  the  case  of  double  nodes  each  node  has 
throe  degrees  of  freedom  after  they  are  separated.  However,  if  the  double 
nodr-  j  c;  pn  a  symmetric  plane,  then  each  node  wi  ll  not  have  three  degrees  of 
freedom  after  they  are  separated.  For  example.  Figure  3.1  shows  the 
one-eighth  part  of  a  laminate  subjected  to  a  force  in  y-direction.  x-0, 
v  -  1  i  n  d  ■/-()  are  symmetric  planes.  Eel  there  he  a  transverse  crack  in  the 
I  oi  *  '"1  pi  v  as  shown  by  the  shaded  area.  The  double  nodes  50  and  31  are  not 
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on  any  symmetic  plane  and  hence,  the  throe  displacements  (Ux.Uy,  &  Uz)  of 
node  50  are  respectively  the  same  as  those  of  node  51  before  the  nodes  are 
separated.  The  nodes  50  and  51  each  will  have  three  independent  degrees  of 
freedom  once  they  are  separted.  However,  the  double  nodes  10  and  11  will 
behave  differently.  When  they  are  together  Uv=0  since  they  lie  on  the 
symmetric  plane  y=0;  and  Ux  and  Uz  of  node  10  are  equal  to  Ux  and  Hz  of 
node  11.  When  the  two  nodes  are  separated  as  the  crack  propagates,  the 
upper  node  11  will  be  still  on  the  symmetric  plane  and  it  will  have  Ux  and 
Uz  degrees  of  freedom,  whereas  the  bottom  node  10  is  no  more  constrained 
and  vi.ll  have  all  the  three  dgrees  of  freedom,  Ux.Uy  and  Uz,  free. 


3.3  IT, TAILS  OF  DATA  MODIFICATION 

At  the  end  of  the  preprocessor  output-  the  following  cards  have  to  be 

added  with  regard  to  double  nodes  and  the  crack  opening  sequence: 

T)  Tv'tails  c£  the  constrained  degrees  of  freedom  (Free  format.) 

a)  MB  -  total  number  of  degrees  of  freedom  of  those  double 
nodes  which  are  constrained  by  the  symmetric  plane  or 
constrained  by  specified  displacements  before  they 
are  released. 

h)  Details  of  the  constrained  degrees  of  freedom.  There 
should  be  NB  following  cards.  F,ach  card  contains  the 
following  input: 

NBC  ~  node  number 
1.1'IX  -  degree  of  freedom 

1  for  x,  2  for  y,  3  for  z  degree  nf  freedom 
USAVF,  -  value  of  the  specified  displacement 

(~0,  for  nodes  on  that  particular  symmot  ric  plane) 

II)  Details  of  the  other  double  nodes'  degrees  of  freedom 

a)  NPAJR  -  number  of  pairs  of  all  double  nodes  including 

those  constrained  on  the  symmetric  plane 

b)  There  should  be  NPAIR  following  card:;.  Farh  card  will 
g i ve  details  of  one  pair  of  double  nodes  and  t  lie  possible 
degrees  of  freedom  after  thr  nodes  ire  open. 


NPC1  -  node  number  1  of  the  pair 
NPC2  -  node  number  2  of  the  oair 
NPX  -  0  or  1 

NPX=1  signifies  that  the  two  nodes  are  constrained 
to  have  the  same  displacement  Ux,  before  the  nodes 
are  open  and  the  nodes  are  completely  free  of  each 
other  in  x-  direction  of  freedom  after  they  are 
open.  NPX=0  signifies  that  their  decrees  of  freedom 
ore  already  specified  as  explained  in  Group  I. 

K'PY  -  0  or  1  !  In  Y  and  Z  directions  similar  to  the  X- 

NPZ  -  0  or  1  !  direction  as  explained  above  for  NPX. 

IT.T)  Data  for  each  step  of  opening  of  ned^r: 

a)  Opening  of  the  double  nodes  to  simulate  crack  propagation 
(Free  format) 

Nl  -  !  the  node  numbers  of  the  paired  double  nodes 

N2  -  !  which  arc  to  be  opened 

IDF  -  1,2  or  3  the  degree  of  freedom  which  is  to  be  freed. 

IDF=1  denotes  x-dcgreo  of  freedom  is  freed 
from  its  double  node's  x-degree  of  freedom 
and  the  nodal  force  Fx  becomes  0.  Likewise, 
IDF=2  or  3  denote  v  nr  degree  of  freedom 
is  freed. 

For  those  nodes  on  the  symmetric  plane  and  constrained  by 
by  specified  displacement  which  are  to  he  freed  the  above 
card  should  be  modified  as 

Nl  -  node  number 

N  2  -  0 

I PF  -  1,2,  or  3  depending  on  x,  v,  nr  r  degree  of 

freedom  which  is  to  be  f reed 

There  should  be  as  many  cards  as  thorn  are  degrees  of 
freedom  to  he  freed. 

N1~N2=II)F=  0  signifies  the  end  of  this  crack  opening 
instruction  and  the  stress  and  energy  released  associated 
for  this  opening  will  be  calculated. 

b)  Selective  stress  print  option  (Free  Format) 

MPEG  !  stresses  will  he  output,  for  the  element  Tram 

NFND  !  elements  from  NP>EG  thru  MEND 

This  card  should  not  be  left  blank.  If  0,0  is 
entered  stresses  will  net  1m  printed. 

If  another  step  of  opening  is  desired,  the  n^vo  (a)  and 
(h)  will  he  repeated.  This  may  he  con'  inner]  until  all  the 
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4  THE  STRUCTURE  OF  THE  MATT:  CODE,  KSAI’  II 


4.1  INTRODUCTION 

f'SAP  II  is  the  main  program  in  the  anal  ysis  of  a  delaminnt  i on  or 
splitting  problem  of  a  composite  plate,  The  program  simulates  the  crack 
opening  using  the  data  regarding  the  finite  element  mesh  ar'd  the 
predetermined  crack  opening  sequence.  At  each  step,  the  program  computes 
the  energy  released  together  with  the  stress  and  displacement  fields. 

4.2  CENERAL  FEATURES  OF  THE  CODE 

The  code  uses  an  8-node  or  21-node  solid  brick  element  to  calculate 
the  stiffness  matrix.  Each  node  is  assumed  to  have  three  degrees  of 
freedom  in  x,  y,  z-directions .  General  orthotrnpic  material  properties  can 
be  assigned  to  the  element.  It  is  assumed  that  the  whole  element  is  at  a 
uniform  temperature  given  by  the  average  of  the  t omcperaturcs  at  the  8  (or 
21)  nodes.  The  thermal  loads  are  calculated  using  the  difference  between 
this  average  temperature  and  the  stress  free  temperature  of  the  element. 

KSAP  IT  code  has  the  capability  to  simulate  crack  opening  along  the 
surface  which  passes  through  the  points  where  double  nodes  are  prescribed. 
Ini  t  ial  ly,  the  two  nodes  in  each  pair  are  assigned  the  same  displaccmeu' s 
in  the  three  degrees  of  freedom.  The  system  of  linear  equations  are  solved 
with  the  appropriate  boundary  conditions  (mechanical  loading  or  thermal 
loading,  or  both)  for  nodal  displacements  and  nodal  forces.  The  stresses  at 
t  tie  prescribed  locations  in  each  element  are  also  calculated.  The  nodal 
force-;  of  the  double  nodes  are  nothing,  but  the  internal  forces  bolding 
t  lier:e  two  nodes  together.  These  forces  are  stored  and  wi.1.1  he  \ised  in  the 
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next  iteration  as  the  crack  opening  is  simulated  through  those  nodes.  The 
crack  opening  is  simulated  by  changing  the  boundary  conditions  of  the 
double  nodes.  This  implies,  obviously,  that  the  displacements  of  the  two 
nodes  will  not  be  the  same.  Then  the  system  of  linear  equations  are  solved 
for  nodal  displacements  and  nodal  forces  under  the  changed  boundary 
conditions.  The  difference  in  the  displacements  ol  the  two  nodes  through 
which  crack  opening  is  simulated  will  be  the  crack  opening  displacement. 
Using  the  internal  force  which  was  necessav  to  hold  them  together  (as  found 
in  Line  preceding  iteration),  the  strain  energy  released  can  be  computed  as 
the  crack  opening  is  simulated  through  that  node.  This  procedure  can  be 
continued  until  all  the  double  nodes  are  opened. 

Thus,  strain  energy  released  as  the  crack  passes  through  successive 
double  nodes  can  be  calculated  at  each  step.  At  each  step  the  crack 
opening  can  be  simulated  through  one  or  more  pairs  of  double  nodes  and 
t.  hero  is  no  limitation  on  the  crack  front  shape. 

If  the  crack  is  simulated  along  a  symmetric  plane,  there  is  no  need 
for  double  nodes  in  that  plane.  The  crack  opening  can  be  done  by  simply 
changing  t-he  boundary  conditions  of  the  nodes  on  that  plane  from 
displacement  boundary  conditions  to  froe  force  boundary  conditions. 

Once  the  strain  energies  released  are  calculated  at  each  step  thon  t ho 
onorgv  roloase  rates  (energy  resteased  per  unit  area)  may  be  obtained  by 
dividing  the  energy  released  by  the  increment  in  crack  area  at  that,  step. 

A  complete  listing  of  the  KSAT  TT  code  can  be  found  in  Appendix  P. 
Tho  following  flow  chart  illustrates  the  general  structure  of  the  KSAP  II 
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4.3  THE  OUTPUT  DATA  FROM  KSAP  II 


The  output  data  from  KSAP  II  consists  of  the  details  of  the  finite 
element  mesh  of  the  given  problem  as  well  as  the  solution  of  the  laminated 
plate  for  the  given  crack  simulation.  For  easy  reference,  the  stresses  and 
enemies  released  are  written  in  separate  files,  KSAPOUT.DAT  and  WORK. WOK 
respectively.  The  rest  of  the  output  (control  information  and 
displacements)  is  written  in  DISP.OUT. 


The  output  file  DISP.OUT  contains  the  following  information: 
i )  control  information 

ii )  the  nodal  point  data:  cartesian  coordinates  of  each  node, 
the  temperature  at  each  node,  and  the  boundary  condition 
codes  (1  means  restrained,  0  means  free  to  move  in  that 
degree  of  freedom) 

ivi)  the  equation  numbers  assigned  to  each  nodal  degree  of 
freedom 

iv)  boundary  elements  data  which  are  attached  to  nodes  where 
non-zero  displacement  boundary  conditions  are  prescribed 

v)  the  material  property  tables  for  different  layers 

vi  )  element  data  which  consists  of  corner  nodes  and  the 
material  table  number  to  which  the  element  belongs 

vi.n  data  regarding  equations,  i.o.,  number  of  equations, 
bandwidth  etc. 

v i i i )  the  solution  data  at  each  step  consists  of  the  nodal  disp- 
lacemets  (U,  V,  W)  and  forces  (Fx,  Fy,  Fz) 

(the  first  step  is  numbered  as  zero,  the  second  step  is 
numbered  1  and  so  on) 

The  output  file  KSAPOUT.DAT  contains  the  fcU -ving  informaion: 

i)  element  stresses  (SIG-XX,  SIG-YY,  SIG-ZZ,  SIG-XY,  SIG-YZ, 
SIG-ZX)  at  the  prescribed  locations  in  each  element. 

i i )  from  the  second  step  onwards,  energy  released  in  x,  v,  and 
z  directions  will  also  be  output  after  the  element 
stresses.  This  energy  released  output  is  the  sum  of  the 
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energies  released  at  all  the  double  nodes  relaxed  at  that 
iteration  if  more  than  one  double  node  are  relaxed. 


4.4  LIMITATIONS  OF  KSAP  II  COPE 


At  present  the  program  can  handle  upto  3000  nodes,  and  100  pairs  of 


double  nodes.  Should  a  problem  involve  f^r 


ind  more  than  3000  node 


then  the  following  dimension  statements  have  to  be  suitably  changed: 

1)  The  degrees  of  freedon  (3  times  the  total  number  of  nodes) 
have  to  be  changed  in  ICR(*')»  R(”')  in  the  statement  with 
serial  numbers  3380,  3386,  3844  and  3849. 

2)  The  number  of  nodes  in  ID(,'f,6)  have  to  be  changed  in  the 
. .latemcntswith  serial  number  3379. 

3)  The  double  nodes'  total  degrees  of  freedom  (6  times  the  pairs 

of  double  nodes)  have  to  be  changed  in  TMATM('”v”') ,  TMAT(* ,*) , 
TC0L(*,1),  TCOLC*),  TC0LM  ( * ) ,  IST(‘”)  in  the  statements  with 
serial  numbers  3384,  3385,  3386,  3R4R  and  A('"vr')»  13 1 ) , 

I  PIVOT  (*) ,  INDEX(*,*) ,  DT(*)  in  the  statement  with  serial 
number  4366  to  the  same  value. 
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5  POSTPROCESSOR  PROGRAM 


5.1  INTRODUCTION 


The  postprocessor  program  plot'  is  designed  to  present  the  stress 
output  of  the  main  code,  KSAP  II,  in  a  graphical  form.  The  stress 
disl ribution  in  any  plane  parallel  to  xy  plane  can  be  displayed  on  a 
graphics  terminal  or  graphics  output  can  he  obtained  on  printronix  printer 
or  Hewlett  Packard  plotter.  The  code  uses  3-D  graphics  routines  from 
Template  package.  The  program  is  written  to  run  interactively  and  the 
interactive  input  consists  of  choice  of  device,  stress  number  (1  for  xx, 
2  for  yy,  3  for  z z,  4  for  xy,  5  for  yz  and  0  for  7.x  stress),  viewing 
position  coordinates,  scale  factor  to  scale  stress  values.  The  stress 
values,  coordinates  and  the  related  data  are  read  from  a  prescribed  data 


5.2  DETAILS  OF  DATA  FILE 

For  an  8  node  element  the  following  data  precede  stress  data: 
Heading  -  data  file  identification  heading 
NX,  NY,  NL 

NX  -  number  of  coordinates  in  x  direct  ion 
NY  -  number  of  coordinates  in  v  di rection 
NL  -  number  of  layers  of  finite  elements  in  the  laminate 

XX(I),  1=1, NX  -  coordinate  values  in  x  direction 
YY(I),  1=1, NY  -  coordinate  values  in  v  direction 

For  21  node  element  the  following  data  should  precede  stress  data: 

Heading  -  data  file  identification  bonding 

NNODES,  NLOC 

NNODES  -  number  of  nodes  of  finite  element  (  8  or  21) 

NLOC  -  number  of  stress  output  locations  requested 


NONX,  NONY,  NONZ 


NONX  -  number  of  coordinator  in  x  direction 
NONY  -  number  of  coordinates  in  y  direction 
NONZ  -  number  of  coordinates  in  z  direction 

LOC(I),  1=1,  NLOC  -  stress  output  locations 

X(I),  1=1,  NONX  -  coordinate  values  in  x  direction 
Y(I),  1=1,  NONY  -  coordinate  values  in  y  direction 
Z(I),  1=1,  NONZ  -  coordinate  values  in  z  direction 

At  the  end  of  the  above  set  of  data,  ono  sot  of  stress  output  (for  all 
the  olomcnts)  should  be  copied  from  KSAFOUT. HAT. 

Ihe  following  plots  (Figs. 5.1  and  5.2)  are  obtainod  from  stress  output 
at  step  0  in  the  example  problem.  Fig.  5.1  is  the  normal  stress  along  v 
direct  ion  (stress  no.  2  and  finite  clrnetit  laver  no.  3)  in  0  layer.  The 
interlaminar  stress  (stress  no.  3  and  finite  olemont  layer  no.  3)  in  0" 
lay or  is  shown  in  Fig.  5.2.  Both  the  plots  are  generated  on  Hewlett  Fackord 
plotter  using  eye  coordinates  (30,  -30,  30). 
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6  ILLUSTRATIVE  EXAMPLE 


6. !  INTRODUCTION 

In  this  section  we  consider  an  example  problem.  The  example  is  of  a 
simple  laminate  construction  and  it  does  net  represent  a  practical  problem. 
Tim  purpose  here  is  to  illustrate  the  procedure  In  operate  the  computer 
code.  However,  the  code  is  developed  lor  a  more  general  use,  subjected  to 
t ha  limitations  discussed  in  the  preceding  sections. 

The  followi.no  paragraphs  present  the  actual  working  steps  in  using  the 
present.  code  to  generate  the  interlaminar  '-tress  distribution  in  a  given 
interface  plane.  All  input  and  output  data  for  this  example  problem  are 
( ournl  in  Appendix  D . 

Laminate  Geometry : 

V X" •,_nuse  ol  syiiimeliy  only  one-c'j.uiui  of  t  no  laminate  is  considered) 

width  of  the  laminate  is  8.0" 
leapt  h  of  the  laminate  is  6.0" 
number  of  layers  is  2 
thickness  of  layer  1  is  1.0" 
thickness  of  layer  2  is  1.0" 

As  shown  in  the  Figure  6.1  x=0,  y~0  and  7.-0  ,-tre  symmetric 

surf nr.es  and  a  uniform  farfield  strain  is  nppl  i.ed  i.n  v-dircction. 

The  delamination  cracking  and  mesh  sj.;-e  are  selected  as  follows: 

A  equal  divisions  in  x-direction 

2  equal  divisions  in  y-direct  i.on 

A  equal  divisions  in  /-direction 

flat  et-  i a  1  properaties  and  loading  informat  ion  for  each  layer  are 
furnished  in  the  following  manner: 

lover  1  (90°  layer) 

Ej  -  21 .0x10 5  psi 
i(  -  1.7x1 0^  psi 

k  1 . 7x10^  psi 


V 


=  0.30 


V1 

=  0.30 

V 

1 

l( 

O 

U1 

-O 

(;1 

=  0.94xl06 

1 

psi 

(:, 

-  0.94xl06 

psi 

r, 

t 

-  0. 50xl06 

psi 

" , 

-  0.20xl0_l 

6  j  0 

n  -  16.0x10  4  /°F 
-  =  16. Ox W"4  /°F 


1  ,a vor  2  (  On  layer) 

lb «-•  same  properties  as  above. 

A  uniform  displacement  of  0.001"  is  applied  in  y-di  root  ion  simulat  inr,  a 
rons' ant  strain  loading  and  no  thermal,  In ad  i  nr.  is  applied  (tcmp.-O).  The 
do  I  ->mi  nation  is  assumed  to  take  place  between  laver  1  and  layer  2  starting 
at  t  lie  outer  edge  at  the  intersect  ion  ef  free  edge  and  transverse  crack. 
Pounder v  conditions  are  provided  t  o  n-i!.-o  rO,  v-0  and  7“0  .cynrm'  r  i  r 
S' nr  faces  . 

The  initial  finite  element  mesh  vitVm  denh]e  nodes  is  as  shown  in 

i  '  i  (’lire  6.2. 


f>..’  PT, PROCESSOR  INPUT  DATA 


Oreim  [ 


«  n m d e  F.l  .  f  02/902  ]s ;  delam-  MF.CH  load  :  'xV-  MF.SH-man.inp  (10/30/87) 


in  this  first  group  the  heading  to  !,r’  pri”ied  is  yiv^n  on  one  r.ard . 


6  .  3 


flrm'p  1  I 


R 

5  .'’.,".0.0 

n.n,  2.0,  4.0,  6.0,  8.0 

O.n,  3.o,  6.0 

0.0,  0.5,  1.0,  1.5,  2.0 


The  first  card  indicates  that  8-node  brick  element  is  to  be  used.  The 
numb'-r  of  coordinates  in  x,  y  and  z  directions  arc  5,  3  and  5  respectively. 
These  are  Riven  in  the  second  card.  The  fourth  entry  in  this  card  is  0.0 
and  it  indicates  that  there  is  no  hole  (hole  radius  =0.0).  The  values  of 
x .  v  and  z  coordinates  are  given  in  the  subsequent  three  cards.  Mo  dal  a 
termination  card  is  required  for  this  set  of  data. 


0-nnr  ITT 


1.  d'in.o,  75,  1 

-1 .  n.n,  0.  0 

1  ’on.,, ,  32,  1 

-1 .  0.0,  0,  0 
1 .  1 .  32,  1 

-1 .  n,  0,  0 

! .  1 .  16,  1 

1 ■ .  2.  32.  1 

-I  .  0.  0 

i 


-1 


In  this  group,  the  cards  2,  4,  o.  n  and  12  a»-o  for  data  termination. 
The  •'  i  rsl  card  indicates  that  all  the  nodes  from  1  to  75  tin  increments  of  1 
ha-e  i  temperature  of  300.0  °F.  Similarly,  the  third  card  is  for  elements 
'•hi'  h  signifies  that  stress  free  t  rrpera  t  ure  for  elements  from  1  t  n  32  in 
i  n<  '  e-'ent  s  ef  ]  is  300.0  °F.  The  material  serial  number  to  which  each 
e 1 e-ent  belongs  to  is  given  in  5l h  card.  Tn  the  present  problem,  |vn 
lave.-s  of  laminate  are  made  up  of  sane  material.  So,  in  this  card,  it  is 
g'”'  u  that  elements  1  to  32  (in  inr.r",""i1|  O  11  lu-lnng  to  material  s-u  !. 


However,  the  two  layers  have  different  orientations  and  they  are  indicated 
in  the  7th  and  8th  cards.  The  elements  1  to  16  have  Lite  material  axis 
orientation  set  1  and  17  to  32  have  set  2. 

The  10th  and  11th  cards  are  to  take  advantage  of  the  set  of  identical 
elements  made  of  the  same  material.  The  first  cnrd  denotes  that  elements  2 
thru  16  are  identical  to  element  no.  1  and  the  same  element  stiffness 
matrix  is  used.  Similarly,  the  2  nd  card  denotes  that  elements  18  thru  32 
are  the  same  as  the  preceding  element  no.  17. 

Group  IV 

n,  2 


This  card  is  for  split  or  notch  simulation.  The  first  entry  (0) 
indicates  that  there  are  0  double  nodes  for  split  generation.  The  second 
entry  2  is  for  split  plane  parallel  |e  xz-plane.  Since  the  number  of 
double  nodes  are  zero,  the  value  of  second  entry  can  be  1 ,  2  or  3  and  no 
sp.l  i. t  will  be  generated. 

Group  V 


13.  18,  23,  28,  33,  38,  43,  48,  33.  38,  6; 3.  68.  73 
n.n..  8 . n ,  0.0.  6.0,  1.0,  2.0 


The  information  of  nodes  which  are  to  be  doubled  is  given  in  this  S'H 
a  f  cards.  The  first  card  says  that:  there  are  13  nodes  to  bo  doubled  and 
t  be  succeeding  card  gives  the  original  numbers  of  the  nodes  which  are  to  be 
doubled.  The  last  card  gives  limits  of  the  coordinates  of  the  solid  in 
which  the  second  set  of  double  nodes  are  to  l>e  glared. 


Group  VI 


F.I. 

1 

21.0E6 

F,T 

1 

1.7E6 

FZ 

1 

1.7E6 

MULT 

1 

0.3 

NULZ 

1 

0.3 

Nirrz 

1 

0.54 

GLT 

1 

0.94E06 

GLZ 

1 

0.94E06 

GTZ 

1 

0.50E06 

ALFT, 

1 

0.2E-6 

ALFT 

1 

0.16F-4 

ALFZ 

-1 

1 

0.16E-4 

1  5 

25  55 

2  25 
-1 

75  5 

This  set  of  cards  will  furnish  data  regarding  the  material  properties. 
These  properties  can  be  given  in  any  order.  The  last  three  cards  arc  to 
define  2  sets  of  material  principal  axes  orientations. 

Croup  VII 

-1 


This  set  of  cards  is  to  specify  force  boundary  conditions.  In  this 
par'  i ctilar  problem  a  single  -1  card  signify  that  there  are  no  force 
)><-,. tpd-iry  conditions. 

Creur  VIII 


•'  l 

UY 

0.0 

24 

3 

UY 

0.0 

25 

3 

1 

UX 

0.0 

51 

25 

UX 

0.0 

52 

25 

3 

UX 

0.0 

53 

25 

•\ 

UX 

0.0 

54 

25 

c 

UX 

0.0 

5  5 

25 

1 

UZ 

0.0 

21 

3 

;v, 

UZ 

0.0 

AO 

3 

"1 

UZ 

0.0 

71 

r- 

> 

'I 

UY 

0.001 

7  5 

3 

6 . 7 


«/•  »  "/  '/  . 


The  displacement  boundary  conditions  are  prescribed  in  this  set  of 
cards.  For  example,  the  first  card  specifies  the  y-componcnt  of 
displacement  as  0.0  for  the  nodes  from  4  thru  24  at  5  node  intervals.  That 
is,  v-component  displacement  of  nodes  4,  9,  14,  19,  24  have  0.0  value.  The 
boundary  conditions  of  other  nodes  are  prescribed  in  the  succeeding  cards 
of  this  last  set.  In  this  set  the  original  node  numbers  are  to  be  Riven 
and  t  hey  will  be  modified  using  the  double  nodes  information  given  in 
Group  V 

6.3  MODIFICATIONS  OF  PREPROCESSOR  OUTPUT  DATA 

The  output  of  the  preprocessor  program  will  be  two  data  files  if  NSD 
is  not  equal  to  zero.  The  file  KSAfJM.DAT  will  consist  most  of  the  data 
necessary  to  run  the  main  code,  KSAP  II.  The  other  file  F0R010.DAT  will 
contain  the  information  about  the  morlifif'd  numbers  of  the  double  nodes  and 
their  original  node  numbers  on  the  split  plane.  These  are  onlv  for 
reference  and  do  not  appear  in  the  modifications  of  KSAPIN.DAT. 

The  original  node  numbers  related  to  delamination  arc  listed  towards 
t ha  end  of  KSAPIN.DAT.  Both  the  double  nodes  of  each  pair  will  have  the 
sumo  displacements  before  the  crack  passes  through  them,  and  both  these 
will  have  free  force  boundary  conditions  once  the  crack  passes  through  that 
pair  and  they  are  separated.  However,  some  of  these  pairs  lying  on  y=0 
plane  behave  differently. 

The  double  nodes  (3,4) , (°, 10) , ( 1 3, 1 0) , 21 , 22) .  and  (27,28)  are  located 
on  t  lie  symmetric  plane  which  also  happons  to  be  the  plane  of  transverse 
crack.  The  y-component  of  the  displacement  (Uv)  of  phe  node  in  each  pair 
before  they  are  opened  have  the  same  value.  When  the  crack  passes  through 


6.8 


that  node,  the  two  nodes  will  be  separated.  The  v-component  of  the  force 
(Fv)  of  the  bottom  node  will  be  zero  whereas  the  top  node  will  be  still  on 
the  symmetric  plane  (y=0)  and  hence  will  have  a  displacement  boundary 
condition  (Uy=0).  It  may  also  be  observed  that  the  other  two  components  of 
the  forces  (Fx,Fz)  will  become  zero  for  both  the  nodes  of  the  pair  once  the 
crack  passes  through  that  pair.  To  facilitate  these  two  types  of  degrees 
of  freedom  of  the  double  nodes  the  input  data  of  KSAP  II  has  to  be 
supplemented  with  the  data  as  shown  below. 


10 

J 

O 

0. 

0 

A 

0. 

0 

0 

2 

0. 

0 

10 

2 

0. 

0 

13 

'1 

0. 

0 

10 

n 

t- 

0. 

0 

21 

•a 

0. 

0 

22 

a 

0. 

0 

27 

o 

0. 

0 

2R 

•y 

0. 

0 

13 

3 

a 

1 

0 

1 

0 

10 

1 

0 

1 

15 

10 

1 

0 

1 

21 

'>  o 

1 

0 

1 

27 

’  )  w, 

1 

0 

1 

33 

3  A 

1 

1 

1 

99 

At) 

l 

1 

1 

A  3 

A0 

1 

1 

1 

51 

52 

1 

1 

1 

37 

3H 

1 

1 

1 

03 

04 

1 

1 

1 

on 

70 

1 

1 

1 

75 

70 

l 

1 

1 

HI 

cj  •» 

1 

1 

1 

R7 

HH 

1 

1 

1 

The  number  (10)  in  the  first  data  card  denotes  the  total  number  of 
y-degrees  of  freedom  of  double  nodes  (3x2-10)  on  the  symmetric  plane  (y=0). 
The  following  10  data  cards  input  the  details  of  the  node  number,  degree  of 
freedom  (1  for  Ux,  2  for  Uy  and  3  I  or  Uz)  and  the  value  of  the 


displacement.  All  these  data  corresponds  to  that  value  before  the  nodes 


iviurr1 


i'.V.V.'/.V."*’, 


arc  opened.  Following  this  will  bo  the  comprehensive  data  input  for  the 
overal  double  nodes.  The  number  15  denotes  that  there  are  15  pairs  of 
double  nodes  whose  details  are  given  in  the  15  succeeding  cards.  The  first 
two  numbers  in  each  card  (for  example.  3  anti  4)  are  two  node  numbers  in 
each  pair.  The  three  following  numbers  (1's  or  0's)  will  describe  the 
behavior  of  the  double  nodes  in  x,v,z  decrees  of  freedom  respectively  when 
the  nodes  are  opened.  The  number  1  for  any  degree  of  freedom  signifies 
that  the  nodes  will  have  the  same  displacement  before  opening  and  will  have 
zero  nodal  force  in  that  degree  of  freedom  after  opening.  Number  0  for  any 
particular  degree  of  freedom  signifies  that  the  nodes  will  not  behave  in 
the  above  manner  with  regard  to  that  degree  of  freedom.  Thus  the  degrees 
of  freedom  (y)  for  the  double  nodes  on  the  symmetric  plane,  y-0  which  are 
described  in  the  previous  set  will  have  zeros  in  this  set  of  data.  For 
example,  the  nodes  3  and  4  will  have  Uy~0  corresponding  to  y-dcgrec  of 
freedom  as  they  are  specified  to  behave  in  another  manner  in  the  preceding 
sat.  nf  data.  The  nodes  27  and  28  will,  have  all  1's  as  they  are  located 
away  from  the  plane  y=0. 


After  furnishing  the  above  data  regarding  the  degrees  of  freedom  of 
the  double  nodes,  comes  the  data  regarding  the  opening  of  the  double  nodes 
t  hus  simulating  a  crack  propagation  as  shown  below; 


0  n  0 

1  32  !  Free  format 

27  n  2 
27  2M  1 
27  2«  3 

0  0  0 
1  32 

21  n  2 
21  22  1 
21  22  3 

37  5«  1 

57  5H  2 
37  3M  3 


’VVS' 


6 .  If*  ^ 

Vo 

1 


L>%*k>v^<j<<vw:h|:kr.k|^|A,MiiaJ 


0  0  0 
1  32 

gono  9999  0 


At  any  step  (iteration)  the  crack  can  he  made  to  pass  through  one  or 
more  number  of  double  nodes.  Each  data  card  consists  of  three  numbers. 
The  last  number  corresponds  to  the  decree  of  freedom  which  is  relaxed,  that 
is,  which  will  have  free  force  boundary  condition.  If  there  is  a  zero  as 
the  second  number  then  the  first  number  should  bo  a  node  number  of  the 
double  nodes  on  the  symmetric  plane  y-0  whose  data  is  specified  in  the 
first  set.  For  example,  the  '27  0  2'  specifics  that  the  y-degrree  of 
freedom  (2)  of  node  no.  27  (which  is  a  node  in  1st  set  of  data)  is  relaxed 
(Fy-O).  That  is,  this  node  is  free  to  move  in  v-dircction.  If  the  second 
number  is  also  non  zero  then  the  first  two  numbers  correspond  to  the  two 
nodes  of  a  pair  of  double  nodes  and  as  explained  above  the  third  number 
specifics  the  degree  of  freedom  in  which  these  two  nodes  are  free  to  move. 
Thus  the  data  specifies  that  the  crack  passes  through  the  pair  of  nodes  27 
and  28  and  these  two  nodes  are  free  to  move  in  x.  z.  directions  whereas  in 
the  y-dircction  only  node  no.  27  is  free  to  move.  That  implies  that  node 
28  will  have  the  earlier  specified  diplacement  (Uy=Q).  All  three  zeros 
signify  the  end  of  the  crack  opening  data  for  that  step.  Thus  when  it  is 
desired  to  calculate  the  stresses  and  displacements  before  any  crack  is 
simulated  it  is  nccesssary  to  place  this  card  (0,0,0)  as  in  line  1. 
Immediately  following  this  card  in  cedi  step  a  selective  stress  print, 
opt  inn  can  be  given.  The  two  numbers  signify  the  range  of  elements  for 
which  the  stress  print  out  is  desired.  If  the  first  two  numbers  in  the 
crack  opening  data  are  prescribed  as  00,10  and  °9°°  t  lien  that  signals  the 
i  erni  nation  of  crack  propagation  ^'imce. 
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6.4  OUTPUT  OF  KSAP  II  PROGRAM 


As  can  be  seen  the  output  of  KSAP  II  is  self  explanatory.  To  start 
with,  it  consists  of  all  the  mesh  details  regard  inn  the  nodes,  coordinates, 
the  degiae?  of  freedom,  elements  etc..  It  also  furnishes  information  of 
the  material  properties  used  and  the  material  number  to  which  each  element 
belongs.  The  output  also  provides  some  details  about  total  number  of 
equations,  bandwidth,  number  of  blocks  etc.. 

Then  the  results  will  be  output  as  the  crack  is  simulated.  For  each 
step  the  nodal  displacements  and  element  stresses  (at  the  center  of  the 
element)  are  printed  as  desired  in  the  input  data.  Usually,  these  results 
are  output  starting  from  no  crack  state  (STF.P  0)  and  crack  can  he 
simulated  opening  one  or  more  nodes  at  each  step.  At.  each  succeeding  step 
( STF.P  1,2,....)  the  energy  released  is  calculated  and  is  printed 
immediately  after  nodal  displacements  and  forces.  If  the  energy  release 
rate  is  desired  then  it  can  be  calculated  by  dividing  these  energies 
released  by  the  incremental  crack  areas. 


2  ceccccccccccccccccccccccccccccccccccccececccceecceeecccecceccccece 

3  A  A 

4  A  THIS  CODE  GENERATES  INPUT  DATA  FOR  ’KSAP  II*  A 

k  A 


ceecccccccccccccccccccccccccccccccccceccecceceeccccceccceeecceceee 


version  :  September  1387 


Reads  fro*  Input  file  and  writes  to  KSAPIN.DAT 


1)  Modified  to  generate  21-node  element  directly  fro* 
the  reqular  tech  UITHOUT  ELEMENT  GENERATION  CODES 


Assign  21  /  8  ( =  NTYPE  )  as  the  2nd  card  in  the 
input  data  file 


CAUTION: 


2)  The  nodal  input  order  for  the  elements  (NTYPE=21) 
SHOULD  be  as  in  SAPIU  MANUAL 

3)  Double  nodes  region  is  to  be  given 
(xl,xu,  ylfyu,  and  zlfzu  in  that  order) 


cccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc 


ROfNR() 
N0S( I) 
N0E< I) 

N INC ( I) 
NN< I, J) 
IDM 

MAT ( I ) 


MAXE5( I) 
TZ(  I) 

X  (  I )  > 

Y(  I)  > 
Z(  I)  > 
XX ( I )  > 
YY(  I)  > 
ZZ  <  I )  > 
T(  I) 

Ell  .. 

IX (  I, J) 
NBD< ) 

NB(  1,4) 
KD( ) 

KR( ) 

NBF  (  ) 

FX  <  )  } 

FY<  )  > 

FZ  <  )  > 

L  ( 4 ) 


temporary  storage  of  data  read 

nu*ber  of  sets  to  be  generated  at  i-th  level 

nu*ber  of  elements  in  the  set  to  be  generated 

increasaent  of  node  nu»ber 

node  nu*bers  of  element  -i 

i.d.  nu*ber  of  *atl. 

1  :  stiffness  *atrix  of  element  -i  is  the  sa»e  as  previous 
0  :  not  the  sa*e  as  last 

I.D. no.  of  *atl.  axis  orientation  setisee  SAP4  *anual) 
Stress  free  reference  temperature  for  element  -I 
coordinets  of  node  -I 


-  coor.  increments  in  l°vol  generation 


Nodal  te*perature 
Material  properties 

Degree  of  freedo*  code  ,  node  -iT  freedo*  -j 

No.  of  boundary  element  FOR  dISPLACEMENT 

4  nodes  used  for  defining  the  direction  of  displ, 

Means  displ.  if  equals  to  1 

, ,  rotation  if  equals  to  1 

node  no.  of  force  boundary 

concentrated  force 


-  Node  difining  vector  criss  multiplied  to  give 


55  ! 

the  direction  of  displ.  or  rotation 

56  ! 

VDO 

Value  of  displ. 

57  ! 

VRO 

Value  of  rotation 

58  ! 

LAX(2,3)  — 

3  nodes  (nunber)  to  define  aatl.  princ.  axis 

59  ! 

(■ax.  of  2  sets) 

60  ! 

HED ( 18  )  -- 

Reading  mfornation  as  first  line  of  output 

61  ! 

MQRTO 

natenal  axes  orientation  set  nunber 

62  ! 

NIO  >  --- 

definition  of  naterial  principle  axes 

63  ! 

NJ< )  > 

64  ' 

NK  ( )  > 

65  ccccecccccccceeeccecececccceeccceccccececccececcceeceecceececLC 

66 

67  CHARACIERA30  FILNAM 

68  CHARACTERA1  piESH 

69  DIMENSION  R ( 7 ) , NR ( 15 > , NRR < 21 ) , NQS< 3 ) ,N0E(3 ) , N INC ( 3 ) , 

70  .  XX(2Q) ,  YY ( 20 ) , ZZ( 15) ,XMESH(40Q0) , YttESH( 4000) , 

71 

72  .  X(4000),Y(4000),Z<4000),IX(4QOO,6),T(4000),nip(4000,2), 

73 

74  .  IDH(3000) , MAT (3000) ,  NN(3000,21 ) , MAXES (3000) ,  TZ(30Q0) , 

75 

76  .  E11(4),E22(4),E33(4) ,  ANU12C4) , ANU13(4) ,ANU23(4) , 

77  .  G12 ( 4 ) , 613 ( 4 ) , G23 ( 4 ) , NBD( 200 ) , ND( 200 , 4 ) ,KD (  200 ) , 

78  .  L(4),VD(200),VR(20Q) ,KR( 200 ) ,HED( 18 ) , 

79  .  N0ND(200) ,XD(200) , YD (200)  ,ZD(200) ,  nons(400), 

80  .  ALPK4)  , ALP2(4) , 

81  .  ALP3( 4) ,  MORT ( 10) ,NI( 10) , N J ( 10 ) ,NK(10)  , 

82  .  EX (200) , EY(200) ,FZ(200) ,N6F(200) , ID  1(200) 

83 

84  c--  nip  (  )  -  the  corresponding  new  nodal  nunbers 

85  C 

86 

87  P  1=3 . 1415926535897932 

88  eps=1.0e-04 

89  WRITE  (5, A)  '...ENTER  INPUT  FILE  NAME . ' 

90  READ  (5,55)  EILNAM 

91  IRD=56  ! READ  TAPE  NO. 

92  OPEN  (UNIT=IRD,FILE=FILNAM,STATUS='QLD') 

93  READ ( IRD , 25 )  ( HED ( I ) ,  1= 1 , 1 8 ) 

94  25  EORMAT( 18A4) 

95 

96  ! Read  whether  the  elenent  is  8-  or  21  noded 

97  c  NTYPE=2 1 

98  c  NTYPE=8 


99 

read  ( IRD, A) 

ntype 

100 

NELTYP=1 

101 

INTRS=2 

!  Integration 

or  der 

for 

r,s  -  coordinates 

102 

INTT=2 

!  Integration 

order 

for 

t-  direction 

103 

IF  (NTYPE.EQ 

.21)  THEN 

104 

INTRSM 

105 

INTT=2 

106 

107  C 

END  IF 

108  CM!!!  FOLLOWING  STATEMENTS  ARE  FOR  VARYING  GRID  GENERATION. 


A-  2 


mm 


V  tv  ■/  s*  •/  •/  %•  v  ’•  -/ 


.  * _  ■ .  4  \  \  *.  *,  \  •«  ,  - 
A  *  -•  /.  /.  ,*  v,  .* 


v/v  ■wi*  ,v* 


109  C 

no  c 
in 
112 

113 

114 

115 

116  c 

117 

118 

119 

120  1444 

121  C 

122 

123  1445 

124  C 

125 

126  1446 

127  C 

128 

129 

130 

131 

132 

133 

134 

135 

136 

137 

139 
13? 

140 

141 

142 

143 

144 

145  C- 

146 

147  444 

148 

14?  r;-- 


NODE  GENERATION 

READ! IRD, A) , NONX , NONY , NONZ , RHOLE 
READ  (IRD, A)(XX(I), 1=1, NONX) 

READ  (IRD,A)(YY(I),I=1 ,  NONY ) 

READ  (IRD, AHZZ(I>, 1=1, NONZ) 

correction  for  inside  nodal  coordinates  for  21-node  el, 

if  (ntype.eq.21 )  then 
do  1444  i=l,nonx 

if  (nod( i ,2) .eq.O)  xx(  i  )  =  ( xx(  i-1 )  +  xx ( i  +  1 ) ) /2 
type  A, (xx( l ) , i=l ,nonx ) 
do  1445  i=l,nony 

if  («od( i , 2) .eq.O)  yy< i)=(yy( l-l )+yy( l+l ) )/2 
type  A, ( yy ( i ) , i=l , nony ) 
do  1446  i=l,nonz 

if  (»od(i,2).eq.O)  zz< i )=(zz< i-1 ) +zs( i+I ) ) /2 
type  A,  ( zz( i > , i  =  l ,nonz) 
end  if 

IF  (RHOLE. GT.epslCALL  HOLE  ( RHOLE , NONX , NONY . NONZ , 

.  XX  ,  YY , sz , X , Y ,Z ) 

IF  ( RHOLE.GT.eps)  GO  TO  444 

DO  J  =  1  ,NONY 
DO  1=1 ,N0NX 
DO  K=  1 , NONZ 

N  =  (  J-l )  ANONXANONZX  I-DANONZ+K 
X(N)=XX( I) 

Y ( N ) =YY ( J ) 

Z(N)=ZZ(K) 

END  DO 
END  DO 
END  DO 

END  OF  POLAR  MESH  GENERATION 
NT0N= NONX ANON Y ANON Z 


MESH  PLOTTING  OPTION  ON  HP  PLOTTER - 

WRITE  (5, A)  'Do  you  need  MESH  plot  Original  nodes 
READ  (5,55)  MESH 
FORMAT  (A) 

IF  (MESH. EQ. 'Y' .OR. MESH. ED. 'y' )  CALL 
MESHPL  (X,Y, NONX, NONY, NONZ, MI P, 1 , nty pe ) 

DO  1=  1 , NTON 
XMESH ( I) =X ( I ) 

YMESH ( I )=Y ( I) 

END  DO 

IF  ( NN( NTOE ,7 ) . GT . NTON )  THEN 
DO  666  1  =  1  , NTOE 
DO  666  J  = 1 , NT YPE 

IF  (NN(  I, J) .GT.NTON)  NN< I , J ) =NN< I , J ) -NTON 


?. . ( Y/N) 


V 


A-  3 


164 

165  148  READ ( IRD, A )  N,TEnR,NEND, INC 

166  IF(N.EQ.-l)  60  TO  149 

167  DO  I=N,NEND,INC 

168  HI)  -  TEMP 

169  END  DO 

170  GO  TO  148 

171 

172  149  continue 

173  300  CONTINUE 

174  C - 

175  C  ELEMENT  GENERATION 

176  C 

177  Nl^NONX 

178  N2=NQNY 

179  N3=N0NZ 

180  N13rNl AN3 

181 

182  IF ( NTYFE .  EQ .  tJ  j  IHEn 

183 

184  NOS ( 3 )  -N3- 1  1  third  level  gen er. code 

185  N INC<  3 )  =  1 

186  NOE ( 3  )  =<N2-1 ) A  t  Ml  - 1  > 

187  NGS(2)  =  N 2 - 1  1  second  level  gener.  code 

188  N INC <  2)  =N1 AN3 

189  NOE (2)  =N  1  - 1 

190  NOS ( 1 )  -N 1  - 1  1  first  level  gener.  code 

191  N INC ( 1 ) =N3 

192  NOE ( 1 )  =1 

193 

194  NkR  ( 1 ) =2+  N2t  N13 

195  N  R  R  ( 2 )  =  2  ♦  N13 

196  NRR ( 3 ) =2 

197  NRR ( 4 ) =2+  N3 

198  NRR ( 5 ) = 1 +  N3t  N  1  3 

199  NRR ( 6) = 1  t  N 1 3 

300  NRR ( 7  >  =1 

301  NRR ( 8  )  =  1  +  N3 

302 

303  ELSE  IF ( NT Y  RE . EO  .  21 )  THEN 

204 

205  NOS ( 3 )  = ( N3- 1 ) / 2  !  third  level  gener. code 

306  N  INC ( 3 )  =  2 

207  NOE ( 3 )  =  <  N2- 1 ) * ( N 1 -  1 )  / 4 

208  N0S(2)  =<N2-l)/2  !  second  level  gener .  code 

209  NINC<2)=2AN1AN3 

310  N0E<  2 )  =(Nl-l)/2 

211  NQS(l)  <Nl~I)/2  !  f<rst  level  gener .  code 

212  N INC ( 1 ) =2AN3 

213  NOE  < 1 )  =1 

214 

215  NRR ( 1 )  =3i2AN3  +  2AN13 

216  NRR ( 2 )  =3  t2AN13 


217 

NRR  ( 3 )  =3 

218 

NRR ( 4 )  =3+2AN3 

219 

NRR ( 5 )  = 1+2AN3+2AN13 

220 

NRR(6)  =1  +2AN13 

221 

NRR ( 7 )  =1 

2  2  2 

NRR18)  =1+2AN3 

mi 
u  c.  o 

224 

NkR  ( 9  ) =3+  N3+2AN13 

225 

NRR ( 1 0 ) =3  ♦  N13 

226 

NRR ( 1 1 ) =3+  N3 

997 
i.  w  • 

NRR ( 12) =3+2AN3+  N13 

228 

NRR  <  1 3 )  =  1  M3  +  2AN13 

99(4 

Lt  Ct  J 

NRR ( 1 4  >  =1  +  N 1 3 

220 

NRR( 15)=1+  N3 

231 

NRR ( 16 ) =1+2AN3+  N13 

232 

NRR(17)=2+2AN3+2AN13 

233 

NRR( 18) =2+2AN13 

234 

NRR ( 1 9 ) =2 

235 

NRR ( 20 ) =2+2AN3 

238 

237 

NRR ( 21 ) =2+  N3+  N13 

238 

END  IF 

239 

N0  =  0 

240 

DO  132  1=1 ,NTYPE 

241 

132 

NN ( N0+ 1 , I)=NRR( I) 

242 

243 

i 

Perform  eleeent  generation 

2M 

DO  138  14*1,3 

245 

DO  138  K=2,N0S(M) 

246 

DO  138  1  =  1, NOE  <  M ) 

247 

N=N0+I+N0E(N)A(K-1) 

248 

00  1375  J=1 ,NTYPE 

249 

1175 

NN(N,J)=NN(N0+I,J)+NINC(M)A(K-1) 

250 

138 

continue 

251 

N0  =  N 

25  2 

NT0E=N0 

253 

i 

DO  1415  IE=1 ,NT0E 

354 

i 

TYPE  A 

->  -,  r 

1 

TYPE  A, '  A  AAA  ELEMENT  '  ,  IE 

259 

'1415 

TYPE  105,  < NN (  IE,J),J=l ,NTYPE> 

c  *? 

J  / 

1  of, 

FORMAT  <  8 1 5 ) 

..09 

259 

2&o 

i 

Read  element  stress  free  temperature 

291 

159 

READ  (  IRD , A )  N , TEMP , NEND ,  INC 

392 

IF(N.ER.-l)  CO  TO  159 

39  3 

DO  1585  IE  =  N, NEND,  INC 

38  4 

1585 

TZ ( IE ) =TEMP 

385 

GO  TO  158 

388 

1  59 

continue 

0  *4 

353 

i 

Rpad  element  eater lal  identification 

35'T 

14  58 

PEAD(  IRD,  A)  N ,  MATRL  , NEND ,  T^r. 

-■  -  r. 

IF (N.EQ.-l >  GO  TO  1459 

A-  5 


r.  ssss.  /.  . 
.  <  .*  ,•  .«  .  • 


>;,••.  •■•vvvv. 


DO  14585  IE=N,NEND,  INC 
14585  IDM!  IE)=MATRL 
GO  TO  1458 
1458  continue 

C  -—MAXES!  I) _ MATL.  AXIS  ORIENT. : 

i  Read  element  material  axis  orientation  identification  number 

1053  READ (  IRD , A )  N  ,  nORTT , NEND , INC 
IF(N.EQ.-l)  GO  TO  1058 
DO  10585  IE-N , NEnD ,  INC 
10535  MAXES! IE ) =rtORTT 
GO  TO  1053 
1058  continue 

!  Read  if  tne  stiffness  matrix  of  an  element  (or  a  group  oi  elements) 

!  is  same  as  the  previous  element 

DO  145  1=  1 , NTQE 
145  MAT ( I ) =0 

170  READ!  IRD , A )  Ml, M2 
c  WRITE!  Ill, A)  ' Mi , n2 ' ,nl,n2 

IE ( Ml .  EG . -1 ) GO  TO  1705 
DO  1702  I-nl , M2 
1702  MAI (  I ) =1 
GO  10  170 
1705  continue 

C - - - 

C  BOUNDARY  CuNDIUuN  GENERATION 

c  Following  statement  are  to  fix  all  rotations  when 
c  only  translational  d.o.f.  (eltype  *8  is  used) 

DO  2010  1=1 , NT0N 
DO  2010  3  =  1,6 
IFU.LE.3)  IX!I,3>=0 
IF ( J .GE. 4  >  IX  < I , J )  =  1 
2010  continue 

!  While  generating  21-node  elements  some  nodes  are  at  the  center  of  faces 

!  These  degrees  of  freedom  will  be  removed  below: 

1  Nodes  not  used  in  defining  any  element  are  found 

!  and  all  its  d.o.f.  set  equal  to  1  (i.e.,  eliminated) 

DO  I E  =  1 ,NTGE 
DO  1N  =  1 ,  NTYPE 
II=NN! IE,  IN) 

IX(II,6)=10  ! to  identify  which  nodes  are  used 

end  do 
end  do 


DO  IND=1,nT0n 

IF!  IX!  lND,b> .EG. 1 0 ) THEN 

IX ( IND,  6 ) =1 

ELSE 

DO  IDG= 1  ,  6 
IX! IND,  IDG  >  =  1 


325 

END  DO 

326 

END  IF 

327 

end  do 

328 

Mil 

1  '  FOR  DOUBLING  NODES  !!!!!!*!!!> 

M  M  i  m  ii  ii 

M  M  II 

329 

do  ip=l,rtton 

330 

mip( ip,2)=0 

331 

end  do 

332 

f 

For  Splitting. . 

333 

NSD  =  0 

334 

READ! IRD, A)  NSDtIDIR  1  No.  of  nodes  to 

be  doubled,  Direction 

335 

IE(NSD.NE.O)  THEN 

336 

NSD1 =0 

337 

686 

READ  ( IRD, A)  N,NEND,  INC 

338 

IE  (N.EQ.-l)  GO  TO  688 

339 

DO  687  I=N,NEN0, INC 

340 

NSD1=NSD1+1 

341 

687 

NONSINSDI )=I 

342 

GO  TO  686 

343 

1 

READ ( IRD ,  A )  (N0NS( I ) ,  1=  1 , NSD ) 

! or iginal 

node  *  to  be  doubled 

344 

638 

IF  (NSD1.NE.NSD)  NSD=NSDi 

•check  on 

total  no.  of  d.n's 

345 

c  — 

to  delete  face  center  no.  froi* 

double  node 

list . 

346 

IF  (NTYPE.EQ.21)  CALL  DELETE! NONX ,NQNY ,N0NZ ,NSD ,N0NS ) 

347 

do  i=l,nsd 

348 

l a=nons ( i ) 

349 

•ip!ia,2)=l 

350 

end  do 

351 

end  if 

352 

NTD  =  0 

352 

READ!  IRD, A)  NTD  '  Number  of 

nodes  to  be 

doubled 

354 

355 

1 

Define  the  zone  of  delanination 

356 

c 

store  coord,  of  the  nodes  to  be 

doubl ed 

357 

IF ( NTD.NE .0 )  THEN 

358 

READ!  IRD, A)  ( NOND ( I > , 1= 1 , NTD ) 

•original 

node  #  to  be  doubled 

359 

c-- 

to  delete  face  center  no.  from 

double  node 

list . 

360 

IE  (NTYPE.EQ.21)  call  delete!nonx,nony ,non 

o , ntd , nond ) 

361 

DO  1  =  1,  NTD 

362 

I A  =  NGND (  I) 

363 

HIP!  1A  ,2 )  =  1 

36  4 

END  DO 

365 

READ!  IRD, A)  XL, XU, YL,YU,ZL,ZU 

366 

DO  I  =  NTD ,  1,-1 

367 

XIK  I )  =X < NOND ( 1) ) 

368 

YD!  I ) =Y ( NOND ( I) ) 

369 

ZD (  I ) =Z ( NOND ( I ) ) 

370 

END  DO 

371 

END  IF 

372 

r 

if  ! ntd+nsd.ne .0)  then 

I 

IP  =  0 

37  4 

DO  1= 1 , NTON 

375 

IP=IRfl 

37b 

HIP!  I , I » =  IP 

3"  7 

IF <  M IP < 1,2) . EQ . 1 )  THEN 

u  "  7 

IP= I P+  1 

A-  7 


379  NIP<  I, 2)=IP 

380  END  IF 

381  END  DO 

382  C  end  if 

383  IE  (NSD.NE.O/ 

384  .call  split  ( NTON , nsd, ldir ,nons , bi p, x, y, z, Tintype , nos , NN , n toe > 

385  1  For  Del  amir,  at  ion . 

386  C  DO  I=1,NTGN 

387  C  TYPE  A, I, <rtIP( I,J) ,J=1 ,2) 

388  C  END  DO 

389 

390  IF  < NTD . EG .  0 )  GO  TO  899 

391  C-  CORRECTIONS  FOR  DOUBLE  NODES  IN  planes  normal  to  x,  y  or  c  -directions 

392  C  FIND  KND  (THE  I  Of  THE  NODE  CURRENTLY  TO  BE  DOUBLED) 

393 

394  DO  525  1=1, NTD 

395  DO  J=NQND( I ) ,NTQN 

396 

397  DIST=SQRI< (X(J)-XD(I) 1AA2+  ( Y ( J ) -YD ( I ) )AA2+  <  2<  J ) -ZD< I >  >  aa2) 

398  IF ( D  1ST . LI. 0.00001  )  THEN 

399  KNB=J 

400 

401  C  BEGIN  CHANGING  NODE  NUfibERS  &  COORD. 

402 

403  c  Charge  element  node  ntmibers  if  it  is  >  knd  by  adding  1  to  it 

404  DO  346  JE=1,NTQE 

405  DO  345  K=1,NIYPE 

406  345  IF  (NNUE,K>  .GT.KND)  NN(  JE,K)=NN(  JE,K)  +  1 

407  346  CONTINUE 

408  C  Also  wove  coords,  downstreaa  by  one  slot  and  also  assign  <knd*lHh 

409  !  saee  as  (knd)th 

410  DO  M=NI0N , KND , - 1 

411  XOUl)=X(i1) 

412  Y ( H+l ) = Y ( H) 

413  Zt  M  +  l ) =Z<  H  > 

414  T ( h+ 1 ) =T ( rt ) 

415  END  DO 

416 

417  C--  Allocate  nodes  of  the  pair  to  the  appropriate  eleaents  depending 

418  !  on  which  side  of  the  double  nodes'  plane  they  (element)  lie 

419  nf  ace  =  NTYPE 

420  DO  3455  K=1,NT0E 

421 

422  IF (NTYPE . £0.8)  THEN 

423  XC=0. 

424  YC=0 . 

425  sc  =  0 . 

426  DO  I A  =  1 ,8 

427  1 1 I=NN ( K ,  IA ) 

428  XC=XC+X(III) 

429  YC=YC+Y (III) 

430  ZC=ZC  +  2(  III) 

431  END  DO 

432  XC=XC/8. 


Find  the  coordinates  of  the  center  of  the 
eleaent  to  detemine  if  it  belongs 
to  the  delannation  zone 


A-  8 


433 

434 

435 

436 

437 

438 

439 

440 

441 
443 

443 

444 

445 

446 

447 

448 

449 

450 

451 

452 

453 

454 

455 

456 

457 

458 

459 

460 

461 

462 

463 

464 

465 

466 

467 

468 

469 

470 

471 

472 

473 
47  4 

475 

476 

477 

478 

479 

480 

481 

482 

483 

484 

485 
4  86 


YC=YC/8. 

ZC-ZC/8. 

ELSE 

1 I I=NN<  K ,  21 ) 

XC=X< III) 

YOY<  III) 

ZC=Z( III) 

END  IF 

IF(K.EQ.32>  THEN 

TYPE  A,  '  ...  ELEMENT  *  ...  ' ,  K 
TYPE  k,  '  -  CENTER: ' ,  XC,YC,ZC 
TYPE  k ,  '  ..  BEFORE  ...' 

TYPE  A,  <NN(K,M) , M=1 , NFACE  > 

END  IF 

DO  3453  M=1 ,nf ace 
IF  (NN(K,M) .EQ.KND 

.and. (XC. GT.XL.AND.XC.LT. XU) 
.and. (YC.GT.YL.AND.YC.LT. YU) 

. and. (ZC. GT.ZL.AND.ZC.LT. ZU) ) 


.  NN(K,M)=KND+1 
3453  END  DO 

3455  END  DO 


NTON=NTON+I 


go  to  525 

END  IF 
END  DO 
525  END  DO 


so  that  the  aodifcations  are  done  only  once 
for  each  double  node 
1  (DIST.LT. 0.00001) 

!J  -  LOOP 
! I  -  loop 


899  CONTINUE 


SKIP  IF  NTD=0 


ur i te ( 5 , A ) ' . . . Do  You  Need  Mesh  with  Double  Nodes  (Y/N)..' 
READ  (5,55)  MESH 

IF  (MESH. EQ.'Y'. OR. MESH. EQ.'y' )  CALL 

MESHPL  ( XMESH ,  YMESH ,N0NX ,  NONY  ,N0NZ  ,M  IP ,  2 , nt.y pe ) 


IF  (MESH. EQ. 'Y' .OR. MESH. EQ. 'y' ) 

ur i te ( 5 , A ) ' . . . Do  You  Want  to  Continue  (Y/N)..' 

IF  (MESH .EQ.'Y'. OR. MESH. EQ.'y') 

READ  (5,55)  MESH 

IF  (MESH. EQ. 'Y' .and. MESH. EQ. 'y'  >  stop 


1 1 1 1  ! !  H 1  ABOVE  ARE  FOR  DOUBLING  NODES  1 '  m  i  i  i  i  i  i  i  i  m  i  i  i 
1  Material  properties 

OPEN  (UNIT=9,FILE=' KSAPIN.DAT', STATU 3=' NEW')  mi 

nui*i*at=0 

5 0 0  read(  IRD ,550 >  A,I,V 

if ( i .gt.numnat)  nu««at=i 


i 


4 

4 


A-  8 


487 

550 

FQRHAT  <  A4 , 14 , 4X , 

G17.7) 

488 

IF( A.EQ. '  EL ' ) 

El  1 ( I )=V 

489 

IF ( A. EQ . '  ET') 

E22(  I)=V 

490 

IE (A.EQ. '  EZ') 

E33( I ) =V 

491 

IF(A.EQ. 'NULT'  ) 

ANU12 ( I)= 

492 

IF( A.EQ. 'NUTZ' ) 

ANU23 <  I )  = 

493 

IF(A.EQ. 'NULZ'  ) 

ANU13 (  I)  = 

494 

IF (A.EQ. '  GLT '  ) 

G12( I)=V 

495 

IF ( A . EQ . '  GLZ '  ) 

G13(  I)=V 

496 

IF(A.EQ. '  GTZ '  ) 

G23 ( I ) =V 

497 

IF(A. EQ. ' ALFL ' ) 

ALP1 (  I)=V 

498 

IF ( A. EQ . y  ALFT  7  ) 

ALP2 <  I ) =Q 

499 

IF ( A. EQ . ' ALFZ '  ) 

ALP3 (  I)=V 

500 

IF ( A . EQ. ' -1 ' )  GC 

1  10  560 

501 

GO  TO  500 

502 

503 

560 

DO  1=1,10 

504 

READ(  IRQ, 570)  (NR(J),J  =  1, 

505 

570 

FORhAI ( 4 I 5 ) 

506 

IF(NRd).EQ.-l) 

GO  TO  579 

507 

WORT  (  1 )  =NR  ( 1 ) 

508 

N I < I ) =NR ( 2 ) 

509 

N J ( I ) =NR ( 3 ) 

510 

NK( I)=NR(4) 

511 

END  DO 

512 

579 

NORTHQ=I-I 

513 

514 

515 

! THE  BELQU  PORT  IQH  IS  HOB  IE ICAI ION  TO  F  IND  DIRECTION  VECTOR 
! above  one  does  not  work  for  hole  problems  (polar  aesh).-- 
C  TYPE  A,  ' NTON ' , NION 

DO  991  1=1, NTON 
DO  992  J=1 , NTON 
IF  (J.EQ.I)  GO  TO  992 

IF  ( ABS ( Y ( 3 ) ) -ABS  <  Y ( I) ) .GT.l.E-06)  GO  10  992 
IF  <ABS(Y(J)-Y( I) ) . GT.l.E-06)  GO  TO  992 
IF  ( ABS ( Z ( J ) )  -  ABS ( Z ( I) ) .GT.l.E-06)  GO  TO  992 
IF  (ABS(Z(J)-Z(I)). GT.l.E-06)  GO  TO  992 
IF  (X(J)-X(l) .LT.O.O)  GO  TO  992 
DO  993  K=1,NT0N 

IF  (K.tU.  I.OR.K.EQ.J)  GO  TO  993 

IF  ( (ABS(X(K) >-ABS(X( I) )) .GT.l.E-06)  GO  TO  993 

IF  (ABS(X(K)-X(I)). GT.l.E-06)  GO  TO  993 

IF  <<ABS(Z(K))-ABS(Z( I))). GT.l.E-06)  GO  TO  993 

IF  (ABS(Z(KI-Z(I)J. GT.l.E-06)  GO  10  993 

IF  ((Y(K)-Y(I)). LT.O.O)  GO  TO  993 

DO  994  LLL=1,NT0N 

IF  (LLL.EQ.  I.OR.LLL.EQ. J.OR.LLL.EO.K)  GO  TO  994 
IF  ( (ABS(X(LLL) )-ABS<X(  I))). GT.l.E-06)  GO  TO  994 
IF  (ABS(X(LLL)-X( I) ) .GT.l.E-06)  GO  TO  994 
IF  (<ABS(Y(LLL))-ABS(Y<  I>>>. GT.l.E-06)  GO  TO  994 
IF  (ABS(Y(LLL)-Y(I)). GI.l.E-06)  GO  TO  994 
IF  ((Z(LLL)-Z(I)). LT.O.O)  GO  TO  994 
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541 

L0=  I  !y  1  z  coord,  sane  as 

J,  xcoord. 

542 

LX= J  ! y  is  coord.  sa*e  as 

I,  xcoord. 

543 

LY=K  l.ne.I  or  J,  x  l  z  coord,  same  as 

544 

LZ=LLL  !.ne.  I, 

J  or  K,  x  i  y 

coord.  sane 

545 

GO  TO  995 

546 

994 

CONTINUE 

54" 

993 

CONTINUE 

548 

992 

CONTINUE 

549 

991 

CONTINUE 

550 

995 

CONTINUE 

551 

552 

C--  READ  i  GENERATE  CONCENTRATED  LOAD  DATA: 

553 

554 

NT8F=0 

555 

N  INCC= 1 

556 

640 

READ ( IRD, 710  >  N1 

,A,0,N2,’INCC 

557 

IF(Nl.EQ.-l)  GO 

TO  699 

553 

559 

DO  I=N1,N2,NINCC 

560 

NTBF=NTBF*1 

561 

NBF ( NTBF ) = I 

562 

if ( A. EQ.  '  FX') 

FX(NTBF)=0 

563 

if (A.EQ. '  FY') 

FY ( NTBF ) =0 

564 

l f ( A . EQ . '  FZ') 

FZ(NTBF)=0 

565 

END  DO 

566 

GO  TO  640 

567 

699 

CONTINUE 

568 

C 

569 

C 

READ  X  GENERATE 

DISPL.  B.C.E. 

DATA 

570 

C 

571 

NTBD=0 

572 

N  INCC  =  1 

573 

"00 

READ( IRD, 710)  HI 

,A,0,N2,NINCC 

574 

"10 

FORMAT! 16, IX, A4, 

IX , F10 . 0 , 12X  ,  2 

16) 

575 

IF(Nl.EQ.-l)  GO 

TO  799 

576 

j  7  7 

573 

IF(V.EQ.O)  THEN 

579 

DO  1=N1 ,N2, NINCC 

530 

IF ( A . EQ .  '  UX') 

IX(I,1)=1 

581 

IF ( A . EQ  . '  UY ' ) 

IX!  1 ,2)  =  1 

582 

IF ( A . EQ . '  UZ') 

IX! I,3)=l 

583 

END  DO 

584 

585 

ELSE 

536 

NELTYP=2 

587 

01=0 

588 

02=0 

589 

JD  =  1 

510 

JR  =  0 

jq  l 

IF ( A . EQ . '  UX') 

then 

5^2 

L  ( 1 )  =1,0 

593 

L ( 2 ) =LY  ! LO  -> 

LY  ALONG  Y  DIF 

. 

5?' 

1.  (  3 )  =L0  1  LO  -> 

LZ  ALONG  Z  OIF 

, 

diff. 

diff. 

I  and  y  is  diff. 
as  I  and  z  diff. 
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595  L ( 4 ) =LZ 

596  else  if (A. EQ. '  UZ')  then 

597  L( 1 )=L0 

598  L(2)=LX 

599  L(3)=L0 

600  L(4)=LY 

601  else  if (A.EQ. '  UY '  )  then 

602  L ( 1 ) =  L0 

603  L(2)=LZ 

604  L<3)=L0 

605  L ( 4 ) =LX 

606  END  IF 

607 

608  DO  I=N1,N2,NINCC 

609  NTBD=NTBD+1 

610  NBD (NTBD )  =  I 

611  DO  3=1,4 

612  NB( NTBD , 3 ) =L( J ) 

613  END  DO 

614  VD ( NTBD ) =01 

615  VR(NTBD) =02 

616  KD(NTBD)=JD 

617  KR(NTBD) =  3R 

618  END  DO 

619  end  if 

620  GO  TO  700 

621  799  CONTINUE 

622 

623  C  writing  double  nodes  to  for010.dat,  and  renumbering  displacement 

624  c  boundary  elements  and  force  boundary  node  number 


625 

626 

do  i=nton,l,-l 

627 

do  1C=1,2 

628 

ip=mip( i , ic ) 

629 

i f ( l p .ne .0) 

then 

630 

do  id=l,6 

631 

l  >:  ( l  p ,  l  d )  = 

l  >;  ( i , 

632 

end  do 

633 

end  if 

634 

end  do 

635 

end  do 

636 

637 

if (ntd+nsd.ge . 1 ) 

t  hien 

638 

00  K  =  1 , N T B 0 

639 

64u 

NBDK1 =H  IP ( NBD ( K ) 

,D 

641 

NBDK2  =  M  IP  C  NBD ( K ) 

,2) 

642 

NBD(K)=NBDK1 

643 

KR(K)=hIP(KR(K)  , 

1  ) 

644 

KD(K)=MIP(KD(K)  , 

1 ) 

645 

646 

IF(NBDK2.NE.O)  THEN 

647 

ntbd=ntbd+  1 

648 

NBD ( NTBD ) =NBDK2 

649  KR(NT8D)=KR(K) 

650  KD(NT8D)=KD(K) 

651  VD(NTBD)=VD(K) 

652  VR(NTBD)=VR(K) 

653  DO  M=l,4 

654  ND(NI8D,M>=ND(K,M) 

655  END  DO 

656  END  IF 

657  END  DO 

653 

659  C  RENUMBER  N  I  f  NJ  f  NK  (ORIENT.  DEFINITION) 

660  DO  K  =  1 , NORTHO 

661  N I (K )=MIP(NI(K) , 1 ) 

662  NJ ( K ) =M IP (NJ (K ) ,  1 ) 

663  NK(K)=MIP(NK(K) , 1 ) 

664  END  DO 

665 

666  end  if  !  ntd.ge.l 

667 

668 

669  C  Renumbering  the  force  boundary  conditions  and  adding 

670  r  new  force  boundary  conditions  of  double  nodes  if  necessary 

671 

672  DO  K=1,NIBF 

673  if  (i*ip(nbf  <K> , 2)  .ne.O)  THEN 

674  WRITE  (5,*)  '  - D.N  at  force  b.e;  NODE  no..',  NBF(K) 

675  STOP  'STOPPING  due  to  double  node  at  force  boundary  cond.' 

676  END  IF 

677  NBF(K)=*ip(NBF(K),l) 

678  END  DO 

679  C 

680  C  OUTPUT  NODE  DATA 

681  C 

682  WR IT£(9 , 1100 )  ( HED ( I) , 1=1 , 18' 

683  1100  FORMAT ( 18A4 ) 

684  IAD0F=NTDA6 

685  1  IADOF===ADDIT IONAL  D.O.F.  DUE  TO  DOUBLE  NODES  i  DISP.BC 

636  WR ITE (9 , 1 101 )  NTON,NELTYP,  IAD0F 

687  1  101  F0RMAT<  15, 15, 4X, '1' ,14X, 'O' , 15X, 15) 

688 

689 

690  URITE<9, 11015)  (IX(1,J),J=1,6),X(1),Y(1),Z(1),T(1) 

11015  F0RhAT<4X,,lC'fI4,5I5,3F10.4,5XtFl''.9> 

br'2  KN  =  0 


693 
69  4 

6  ’■)  “j 

696 

697 

698 
69n 
"00 
"01 
"02 


UR  ITE (9, 1102)  2, ( IX(2, J) , J-1 ,6) ,Xf 2) , Y(2) ,: 
KNM  =  0 

DO  I=3,NT0N-1 

IXM1  =  :>:(  i ,  1  )-ix ( i -1 , 1 ) 

I X  M  2 = i  :<  <i,2>  —  ix(i  — 1,2) 

IXM3=ix< i , 3 ) - i x ( i-1 ,3) 

IXM4=i:<(  l  ,4)-ixa-l  ,4/ 
IXN5=ix(i,5)-ix(i-l,5) 

IXM6=i:<(  i  ,6)-i:<(  i-1 ,6) 

DXM  =  X (  I ) -X (  1-1 ) 


'  2 ) ,  K  N ,  T  ( 2 ) 


703  DYM  =  Y ( I ) -Y (  1-1 ) 

704  DZM=Z(  I)-Z(I-l) 

705  DTM=T(I)-T(  1-1) 

706  IXPl=ix(i+l,l)-ix(i,l) 

707  IXP2=ix( i+1 ,2) -ix( l ,2 ) 

708  IXP3=ix( l+l , 3)-ix( l , 3) 

709  IXP4  =  ix(i  +  l,4)-i>;(i,4) 

710  IXP5=ix(i+l,5)-ix(i ,5) 

711  IXP6=ix(i+l,6)-ix(i,6) 

712  0XP=X(  1+1 )-X(  I) 

713  DYP=Y ( 1+1 ) -Y ( I ) 

714  DZP=Z(I+1)-Z(  I) 

715  0TP  =  T (  1  +  1 ) -T (  I ) 

716  KN  =  0 

717  IFUXH1.EQ.  IXP1 .AND. IXM2.EG. IXP2.AND. IXM3.EQ.  IXP3 .  AND . 

718  .  IXM4.EQ.  IXP4.AN0.  IXM5.EQ.  IXP5.AND. IXM6.EQ. IXP6.ANB. 

719  .  DXH.EQ. DXP. AND. BYn. £Q .DYP. AND. DZM. EQ. DZP . AND. 

720  .  DTH.EQ.DTP)  KN=1 

721  IF(KN.EQ.O) 

722  . UK ITE (9 , 1102)  I , ( IX(I , J ) , J  =  1 , 6) , X( I) , Y ( I ) ,Z( I) ,KNM, I (  I ) 

723  KNM=KN 

724  1102  FORMAT ( I5,6I5f3F10.4,  I5,E10.0) 

725  END  DO 

726  i=nton 

727  UR  ITE (9,1102)  I , (  IX ( 1 , 3 ) , 3  =  1 ,6) ,X(  I) , Y( I) ,Z( I) ,KN ,T ( I ) 

728  C 

729  if  (neltyp-st. 1 )  then  !  OUTPUT  FOR  B.C.E.  #7 

730  C 

731  WR1TE(9, 1201 )  NTbD 

732  1201  E0RMAT(4X,  '7' ,  I5/8X, '  1 . '  ) 

733  DO  I = 1 , N T 6 B 

734  UR  ITE (9, 1202)  NbD( I> , (ND( I,J) ,3  =  1,4) ,KD(  I) ,KR(  I)  ,VD(  I)  ,0k(  I) 

735  1202  FORMAT ( 7  15 , 5a f 2F 10 . 7 , '  0.100E  +  21  ') 

736  END  DO 

737  end  if 

738  C 

739  C  OUTPUT  ELEMENT  DATA 

740  C 

741  MAXNOD=NTYPE 

742  N0PSET=1  !Nui»ber  of  sets  of  d3t3  requesting  stress  output 

743  URITE<9, 1300)  NTOE , NUrtMAT ,NORTHO , MAXNOD ,NOPSET , INTRS , INTI 

744  1300  FORMAT (4X, '8' , 15 , i 5 , 4X , '0' ,  15, 5X, 15,315) 

745 

746  c  1=1 

747  do  i  =  1 , nu#n*3t 

748  UR  ITE (9, 1301)  I , TZ (1 ) , E 1 1 ( I ) f E22 ( I ) , E33 ( I ) , ANU12C I > , ANU1 3 (  I ) , 

749  . ANU23 ( I ) , G12 ( I ) , G13< I > ,G23( I) , ALP1( I) ,ALP2( I) ,ALP3( I) 

750  1301  FQRHAI(I5,4X,'1',20X,'AXIS*1==0-LAYER;  AXIS*2==90-LAYER. '/ 

751  Af 1 0.0, 3f 10.0, 3f 10.4/3! 10.0 r3f 10.7) 

752  ccc  URITE(9, 13010)  T ( 1 ) , El  1 ( I ) , E22(  I) , E33 (  I ) , ANU1 2 (  I ) , ANU 13(1), 

753  ccc  .ANU23U)  ,G12(  1;  ,G13<  I)  ,G23(  I)  ,ALP1(I)  ,ALP2(  I)  ,ALP3(  I) 

754  13010  FORMAT(F10.0,3F10.0,3F10.4/3F10.0,3F10.7) 

755  END  DO 

756 
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757  DO  I=1,NORTHO 

758  URITE(9, 13011)  MORI ( I) ,NI( I) ,NJ ( I)  ,NK ( I ) 

759  13011  F0RMATUI5) 

760  END  DO 

761 

762  13005  FORMAT! 4 15/4 15/315) 

”63 

”64  READ!  IRD, A)  LOCI ,  L0C2,  L0C3, L0C4 , 1.0C5 , L0C6, L0C7 

765  WR ITE ( 9 f 13008)  LOCI ,L0C2 , L0C3, LOC 4 , L0C5 , 10C6 , L0C7 

”66  13008  FORMAT ( 7 15) 

”67  TA=1 . 0 


”68  IF(T( 1 ) .EQ.TZ! 1 ) )  TA=0.0 

769  WRITE  (9,13012)  TA 

770  13012  FORMAT !///E 10.0/) 

771  I0P=1  !  I.D.#  OF  STRESS  OUTPUT  LOCATION  SET 


772 

77? 

774 

775 
•^76 
’777 

778 

779 

780 

781 

782 

783 

784 

785 

786 

787 

788 
”89 

-or 

?9 1 

792 

793 

794 

795 
”96 


”^8 
7  9  9 
800 
801 
902 
9^3 
80  4 

305 

306 

307 
309 

7  0  7  rr 


ISK IP0=0 

DO  1=1 , NTOE 
KGM=0 

if ! i .  gt . 1 .and. 

.  IDM!  I) .EQ.IDM(i-l) .AND. MAXES! I) . EG .MAXES! l-l ) .AND .  IOP .EQ .  IOP 
. AND.IZ! I) .EQ.TZ! i-1) .AND. MAT! I) .EQ.MAT! i - 1 ) >  then 
K6M1=NN(1,7)-NN( 1-1,7) 

KGM2=NN( I, 8)-NN< 1-1,8) 

KGM3=NN(I,5)-NN(I-1,5) 

KGM4=NN< I,6)-NN(  1-1,6) 

KGM5=NN( I,3)-NN( 1-1,3) 

KGM6=NN( 1,4)-NN<  1-1 ,4) 

KGM7=NN(I,1)-NN(I-1,1) 

KGM8=NN( 1,2)-NN( 1-1,2) 

KGMMX=MAX0(KGM1,KGM2,KGM3,KGM4,KGH5,KGM6,KGH7,KGM8) 

KGMMN  =  M INO! KGM1 , KGM2 , KGM3 , KGM4 , KGM5 , KGM6 , KGM7 . KGM8 ) 
IF(KGMMX.EQ.KGMMN)  KGM=KGMMX 
end  if 


KGP  =  0 

i  f  ( i . 1 1 .ntoe . and . 

.  IDM!  I) .EQ.  IDM! 1  +  1 ) . AND .MAXES ( I) .EQ. MAXES! 1+1' . AND . IOP . EQ . IOP 
.AND. TZ(I).EQ.TZ(I  +  1). AND. MAT(I). EQ.MAT!  I  +  D)  then 
KGP1=NN(I+1,7)-NN(I,7) 

KGP2=MN! 1+1 , 8)-NN( 1,8) 

KGP3  =  NN ( 1+1,5) -NN (  1,5) 

KGP4=NN( 1  +  1,6) -NN ( 1,6) 

KGP5=NN( 1+1,3) -NN ( 1,3) 

KGP6  =  NN ( 1+1,4) -NN!  1,4) 

KGP7=NN( 1  +  1,1 )-NN(  1,1) 

KGP8=NN ( 1+1,2) -NN (1,2) 

KGPMX=MAXO (KGP1 ,KGP2 ,KGP3 , KGP4 , KGP5 , KGP6 , KGF7 , KGP8 ) 

KGPMN=MIN0(KGP1 ,KGP2 ,KGP3 ,KGP4 , KGP5 , KGP6 ,KGF7 ,KGP8 ) 

IF(KGPMX.EQ.KGPMN)  KGP=KGPMX 

end  if 

ISK IP  =  0 

ISK IP= 1 


311  if ( iskipo.eq.G. inJ.k9p.3t .0)  k9s=kgp 

312  11=1 

813  c  UR  ITE ( 9 ,  A )  I,  ISK IPO, ISKIP,KGM,KGP 

814  IF! ISKIP.EQ.OITHEN 

815  UR ITE (3, 13025) II, IDM  < II ) , MAXES ( II ) , IOP , TZ ( II ) ,kgz 

816  . ,MAT( II) , !NN( II, JX) ,JX=1,NTYPE> 

817  END  IF 

818  13025  FORMAT! 15, 115, 2I5.F10.0, 15, 10X, I5/16I5/8I5) 

819  ISK 1P0=  ISK I P 

820  KGMO=KGM 

821  END  DO 

822  1302  FORMAT! 15,  115, 215, FIG. 0, 15X,  15/815) 

823 

824  NBMN=Q 

825  DO  J=1,NTBF 

826  N6M=99999 

827  DO  1  =  1  ,NTBF 

828  IF ( NBF ( I) .II.N&H. AND.NBF!  I) .GT.NBMN)  THEN 

829  NBM  =  NBF !  I ) 

830  IM=  I 

831  END  IF 

832  END  DO 

833  ID1 ( J )  =  In 

834  NBMN=NBm 

835  END  DO 

836 

837  DO  J=  1 , NTBF 

838  1=  ID1 ( 3 ) 

839  WR ITE! 9 , 1303 )  NBE (  I ) , FX ( I ) , FY ( I ) , FZ ( I ) 

840  END  DO 

841  1303  FORMAT!  15, 4X, ' 1 ' ,3F10. 4) 

842 

843  URITE(9, 1305) 

844  1305  FORMAT ( /8X , ' 1 . '  ) 

345 

846  UR  IIE  (9,1306) 

847  1306  FORMAT (lXf'0'/lX,'0'/lX,'0  0  0'//lX,'9999  9999  O') 

848  URITE  ( 1 0  ,  A  )  ' 

849  URITE  (10, A)  '  ....For  Crack  Simulation. . . ' 

850  URITE  (10, A)  '  ORIG.  NUDES  DOUBLE  NODES  ' 

851  URITE  (10, A)  '  - ' 

852  ntono=nton-ntd-nsd 

853  write  (9,8128)  ntd 

854  do  850  i=l,ntono 

855  if  ( »ip ( 1 , 2 ) . fie . 0 )  then 

856  do  860  j=l,nsd 

857  if  < 1 . eq . nons ! j )  )  wr 1 te ( 10 , 8 1 26 )  I ,»ip( i , 1 ) , iup( 1 , 2 > 

858  if  ( 1  .eq.nons! j ) )  go  to  850 

859  860  continue 

860  wr i te! 9 , 8 1 25  )  m 1 p ( 1 , 1 ) , ui p ( i  ,  2  ) ,  I 

861  end  if 

862  850  continue 

863  8125  f  or  mat  <  2i 5 , 7h  111,' 

8648126  f ormat ( 2X , 15 , 3X , 2 15 ) 


1 


'  ,i5) 


do  i=l,ntono 

if («ip( i ,2) .ne.O)  then 

writing  in  the  order  they  are  given  in  the  input  file - 

do  i=l,ntd 
i i=nond( i ) 
do  j  =  1 , 3 

urite<9, 8128)  «ip< i i ,  1 ) , »i p ( i i , 2 )  ,  j ,  i i  1 
end  do 

f ornat ( 2i5, i3,5X ,  '  1  MS) 

end  l  f 
end  do 

CLOSE  (UNIT=9) 

STOP 

END 


subroutine  split  ( NTON ,  ntd ,  ldi  r ,  nond ,  mi  p ,  ,  y ,  z ,  T  , 
.ntype,nos,NN,ntoe) 

dimension  nond ( 1 ) ,  »ip( 4000 , 2 ) , l f ace ( 9 ) , jf ace (9 ) , nos ( 1 ) , T ( 1 ) 

.  ,xd(  400) ,  yd (  400) ,zd<400) ,x<l) ,y< 1) ,s< 1) ,nn< 3000,21 ) 

NFF  =  4 

IF  (NTYPE.EQ.21 )  NFF=9 

C  STORE  COORD.  OF  THE  NODES  TO  DOUBLED 
C-  CORRECTIONS  FOR  DOUBLE  NODES  IN  or  y  or  :  -direction  — 

DO  819  1=1,4 
IFACE(  I )  =  1  +  4 
819  JFACE ( I )  =  I 

IFACE(5)=13 
IFACE ( 6 ) = 1 4 
IFACE ( 7 ) =27 
IFACE (8) =16 
IFACE ( 9  >  =  15 
JFACE ( 5 ) =9 
JFACE(6)=10 
JFACE ( 7 ) =26 
J  FACE ( 8 )  =  1 2 
JFACE ( 9 ) =1 1 

NTELR  =  N0S(1)  ANOS  ( 2 )  M  NTELR  — TOTAL  NUMBER  OF  ELEtt.  IN  AN  ELE-LAYER 
IF  (  IDIir.LT. 1. OR. IDIR.GT. 3)  IDIPM 
IF  (IDIR-2)  901,902,903 
901  IFACE ( 1 ) =2 
IFACE ( 2 ) =3 
IFACE ( 3 ) =6 
IFACE ( 4 ) =7 
JFACE ( 1 )  =  1 
JFACE ( 2 ) =4 
JFACE ( 3 )  =5 
JFACE ( 4  )  =8 
IFACE ( 5 ) = 10 
IFACE ( 6 ) = 18 
IFACE ( 7 ) =23 
IFACE  C  8 )  =  1 9 
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919  IFACE(9)=14 

920  3FACE(5)=12 

921  3FACE(6)=17 

922  JFACE( 7  >  =22 

923  JFACE( 8 ) =20 

924  3FACE(9>=16 

925  NTELR=  1 

926  GO  TO  903 

927  902  1FACE (1 )  =3 

928  IFACE (2 ) =4 

929  3  FACE ( 1 ) =2 

930  3FACE ( 2 ) =1 

931  JFACE<3)-6 

932  3FACE ( 4 ) =5 

933  IFACE(5)  =  1 1 

934  IFACE ( 6  >  =  19 

935  IFACE ( 7 ) =25 

936  IFACE ( 8  >  =20 

937  C  IFACE( 9)  =  15 

938  C  JFACE<5)=9 

939  JFACE(6)=18 

940  JFACE(7)=24 

941  JFACE(8)=17 

942  JFACE ( 9 )  =  13 

943  NTELR=NQS ( 1 ) 

944  903  CONTINUE 

945 

946  DO  701  1=1 , N X D - 1 

947  ICHAHGE-0 

948  DO  702  J=1,NIU-I 

949  JJ=J*1 

950  IF  (NQND(J) . LT . NukD < J J > >  GO  10  702 

951  ICHANGE= 1 

952  AA=N0ND(J) 

953  NOND< J)=NGND( JJ) 

954  NQND  ( J J ) =AA 

955  702  CONTINUE 

956  IF  ( ICHAN6E . EQ.O)  60  TO  703 

957  701  CONTINUE 

958 

959  703  CONTINUE 

960  DO  1  =  1, NTH 

961  XD<I)=X(NOND( I) > 

962  YD< I)=Y<NOND(  I) ) 

963  ZD(  I)=Z(NOND(  I  > ) 

964  END  DO 

965  C--  CORRECTIONS  DOUB.  NODES.  ENDS.-- 

966 

967  C  FIND  KND  (THE  *  OF  THE  NODE  CURRENTLY  TO  BE  DOUBLED) 

968  DO  830  1=1, NTD 

969  UU  820  J=NGNB( I > , NTON 

970  D IF  =  SQRT ( ( X ( J ) -XD (  I ) ) *A2+ ( Y < J ) - YD<  I ) ) AA2  + 

971  .  (ZU)-ZD(  1) )  A  A  2 ) 

972  C  IF<X( J)  .NE.XD(  I)>  GO  TO  820 


v  w^  '. 


973 

974 

975 

976 

977 

978 

979 

980 

981 

982 

983 
°8  4 
983 

986 

987 

988 

989 

990 

991 

992 
99  3 

994 

995 

996 

997 

998 

999 
1000 
1001 
1002 

1003 

1004 

1005 

1006 

1007 

1008 

1009 

1010 
1011 
1012 
1 0  1  3 
1014 
1019 
1016 
101  / 
10  18 

1019 

1020 
10  21 
1022 
1023 
10  24 
1  A  25 
1 A 2  6 


C  IF(Y(J).NE.YD<  I) )  GO  TO  820 

C  IF(Z(J).NE.ZD(I))  GO  TO  820 

IF  (DIF.GT.1.0E-13)  GO  TO  320 
KND  =  J 

GO  TO  825  !  GET  OUT  OF  J  LOOP 

820  CONTINUE 
825  CONTINUE 

C  BEGIN  CHANGING  NODE  NUMBERS  %  COORD. 

C  CHANGE  NODE  NUMBERS 

DO  J= 1 f NTOE 
DO  K=l,ntype 
IF  (NN(J,K) .GT.KND)  THEN 
NN< J,K)=NN< J,K)+1 
END  IF 
END  DO 
END  DO 

C--  substitution  FOR  DOUB.  NODES  or  y  or  ^  dir.-- 


DO  K= 1 , NTOE 
DO  H=  1 , NFF 
MM  =  JFACE  < M ) 

IF  (NN(K,MM) .EQ.KND)  THEN 
MJ=  IFACE ( M ) 

NN(K+NTELR,MJ)=KND+1 
END  IF 
END  DO 
END  HO 

corrections  for  doub.  nodes  ends.-- 

CHANGING  COORD. 

DO  J  =  NTON  f KND , -1 
X<J+1)=X(J) 

Y( J+1)=Y< J) 

Z(J+1)=Z(J) 

T( J  +  l >  =T< J) 

END  DO 
NTON-NTON+1 
530  CONTINUE 
return 
end 

subroutine  de  1  ete  1  non::  f  nony  ,  none  ,  r,  t.d  ,  nor.d  ’ 

dimension  nond(I) 

ixx=nons 

i  yy  =  non:<  Anone 

IFN0=0 

DO  422  1=1 ,N0NZ 
DO  422  J  =  1 , NON Y 
HO  422  K= 1 , NONX 
IF  ( MOD ( 1,2) .EQ.O)  GO  TO  411 

IF  ( MOD ( J , 2 ) . NE . 0 . OR . MOD ( K , 2 ) . NF  . 0 '  GO  TO  433 
I-odd,  j,k-even . 


A  - 19 


'  v> v  rjuvi  ■>  - 


>  -j  ^  jj  j j.-j  i_i.ii  .,.1  ..-_.,_ij  1^1  ,v,rm 


1027 

10 28  411 
1020  421 

1030 

1031 

1032 

1033 

1034  426 

1035 

1036  425 

1037 

1038  427 

1039  422 

1040  C 
10  41  C 

1042 

1043 

1044 

1045  ci-- 

1046 

1047  c--- 

1048  c 

1 049  c  — 

1050  e - - 

1051  c  — 

1052  c  — 

1053  c 

1054  c-- 

1055  C--- 

1056 

1057 

1058 

1059 

1060 
1061 
1062 

1063 

1064  2 

1065 

1066 

1067 

1068 

1069  C-- 

1070 

1071 

1072 

1073 

1074 

1075 

1076 

1077 

1078 

1079  50 

1080 


30  to  421 

if  ( *.uJ  (  ( j T k  ) ,  2  )  .  eq  .  0  )  30  to  422 
1 a =  i  y  y  A  (  j-1 )  r  1 a  a  ( k  - 1  )  + 1 
do  425  l=l,ntd 

if  ( la.ne.nondl  1 ) )  30  to  425 

ifr.o=ifno»l 

do  426  B=  1  ♦  1  ,  fitd 

nond  ( k~  1 )  =nor,d  (  « j 

30  to  427 

continue 

30  to  422 

ntd-ntd- 1 

continue 

type  A ,  n  t  d 

type  A, (nondl l ) , i-i ,ntd) 
return 
end 


SUBROUTINE  nESHPL  ( Xx , Y Y ,fi6NX , NGNY , NQNZ , H IP , IPL0T , nty pe  ) 


Pro3rai»  'nESH.FOR'  to  be  used  with  '  PREPR0214.FQR' 
This  routine  plots  the  mesh  in  xy-dir ection. . 

This  routine  is  based  on  HP-GL  Ian3ua0e.  The 
plot  cannot  be  displayed  on  TTY.  Before  using 
this  routine  ASSIGN  a  HP  plotter  to  F0R090 
IPLQT  -  1  original  nodes 
IPL0T  =  2  after  double  nodes 


LOG  ICALA 1  ETX , ESC 
CHARACTER  Al  JUNK ,  rtESH 
BATA  ETX/'G/^SC/'SS/ 

B  IrtENS  ION  X  (  4000  )  ,  Y(sOOO)  ,XX<1)  ,YY(1> 
. ,  in  1  p  (  4000 , 2  ) 

NTQI=NQNXAN0NYANUNZ 
B0  2  1=1, NT01 
X( I)=XX(  I) 

Y ( I)=YY (  I) 

IX=NQNZ 

IY  =  N0NX ANUN2 


SCALING  THE  COOKBINAIES 


Xrt IN  =  5000 . 
XHAX=-5G00. 

Y(1  IN  =  5000 . 
YHAX=-5000. 

B0  50  1=1, NT0T 
IF  (X(  D.GT.XHAX) 
IF  <X<  D.LT.XMIN) 
IF  (Y(I).GT.YMAX) 
IF  <Y(  l ) .LT.YHIN) 
URITE  (5, A)  'TYPE 


xnAX=X(  I) 

XMIN  =  X<  I) 

YnAX=YlI) 

YMIN  =  Y(  I) 

LEVEL  no.  to  plotted..' 


20 


1081  READ  (5, A)  LEVEL 

1082  N=LEVEL 

1083  XLL=XM IN 

1084  YLL=YM IN 

1085  XMM=XMAX 

1086  YMM=YMAX 

1087  XL=XMM-XLL 

1088  YL=YMM-YLL 

1089  WRITE  (5, A)  '  DO  YOU  WANT  TO  GIVE  X,i  LIMITS..7  (Y/N) 

1090  READ  (5,33)  MESH 

1091  IF  (MESH. EQ. 'Y' .OR. MESH. EQ. 'y' )  THEN 

1092  URITE  (5, A) '  ENTER  X-  LIH1TS 

1093  READ  (5, A)  XLL, XMM 

1094  URITE  (5, A)'  ENTER  Y-  LIMITS' 

1095  READ  (5, A)  YLL , YMM 

1096  XL=XMM-XLL 

1097  YL= YMM-YLL 

1093  END  IF 

1099  X0=650.0 

1100  Y0=1246.0 

1101  Xe=  8800.0/XL 

1102  Yc=6000.0/YL 

1103  SC=xc 

1104  IF  (XCAyl.gt. 6000.0)  SC  =  ye 

1105 

1106  IF  (XL.LT.YL)  THEN 

1107  X0-1246.0 

1108  Y0=650.0 

1109  Xc=  6000.0/XL 

1110  Yc~8800 . O/YL 

mi  sc=xc 

1112  IF  (XCAyl.gt. 8800.0)  SC  =  yc 

1113  END  IF 

1114  r;  type  A ,  'xl  ,yl '  ,:<1 , y  1 

1115  DO  l  1=1, NTOT 

1116  X(1)=(X(I)-XLL)ASC+XQ 

1117  1  Y(  I)  =  (Y(  I)-YLL)ASC+YO 

1118 

1119  C  type  A ,::(  1 ),::( ntot ) 

1120  C  type  A , y ( 1 ) , y ( ntot ) 

1121  WRITE  (90,9999)  ESC ,  ESC ,  ESC , ESC 

1122  9999  FORMAT  ('  '  ,  A 1 ,'.(',/,  '  '  ,  A 1 ,  '  .  ;  0 :  '  ,  /  ,  ',A1,'.I40;; 

1123  .  Al, ' . N ; 1 9 : ' ,/, '  INJDF; ' ,/) 

1124  URITE  (90,A),'SPl;' 

1125  WRITE  (90, A),'  VS15.0;' 

1126  IF  (XL.LT.YL)  THEN 

1127  WRITE  (90, A)  '  R090;' 

1128  URITE  (90, A)  '  IPjIU;' 

1129  END  IF 

1130 

1131  XMM=(XMM-XLL)ASC+XO 

1132  YMM=( YMM-YLL )ASC+YO 

1133  XLL=XO 

1134  YLL=YO 


kl 

t 

£ 

V 

j; 

1 

1 

It 

1 

*' 

t  1135 

f  1136 

Jl=level 

£ 

1  1137 

J2  = ( nony-1 )  Aiy+j  1 

* 

?  1138 

c 

DO  111  IU.NGNI 

V 

;  ii39 

cm 

TYPE  A ,  Y  ( h  ,  Y  L  L 

y 

J  1140 

c 

CALL  L  In  IT  ( Y ,  YLL, jl , j2, iy , Jl ) 

* 

5  1141 

c 

CALL  L  In  IT  ( Y , Yrtn , J 1 , j2 , iy , J2 > 

d 

C  1142 

c 

J2= IF2( Y , YnM , Jl , NQNY ,  1 ) 

s 

}  1143 

c 

TYPE  A, '20  LOOP' , J 1 , J2 

L 

"  1144 

DO  20  J  =  J1 , J2, iy 

S  1145 

Na1  =  j 

£ 

K  1146 

NX2=n;:l  +  IY -i;< 

t 

i  1147 

CALL  LIMIT  (A  ,  XLL,NX1  ,NX2,  IX  f  NX  1  ) 

§ 

r  1148 

CALL  L  In  IT  (X,xrtrt,NXl,NX2,IX,NX2> 

f 

|  1149 

c 

NX1=IF1(X,XLL,NX1,NX2,  IX) 

f 

'  1150 

c 

NX2=IF2(X,Xrtrt,NXl,NX2,  IX) 

:  1151 

c 

TYPE  a,  '  10  LOOP  '  ,  NX  1 , NX2 

A 

.  1152 

c 

TYPE  A , X  <  NX  1 ) ,Y(NX1 >,X(NX2> ,Y(NX2) 

* 

■" 

\  1153 

DO  10  I  =  NX1 ,NX2, IX 

y 

•  j 

)  1154 

IF  (i.eq.r«:;l)  WRITE  (90,101),  X(I),Y(I) 

1155 

WRITE  (90,104) ,  X (  I )  , Y (  1 ) 

i 

'  1156 

104 

EQRMAT  ('  PD' ,2F11 .3, ' ; ' ) 

!  1157 

10 

continue 

A 

;  1158 

20 

UR IIE  (90, A)  '  PUJ' 

i 

1159 

a 

1160 

Il=levei 

& 

1161 

12= (NQNX- 1 ) Aix+i 1 

i 

1162 

c 

CALL  LIMIT  ( X , XLL , l 1 , i2 , IX, l 1 ) 

/■ 

J  1163 

c 

CALL  LIMIT  ( X , XMM , l 1 , i2 , IX , x2 ) 

V \ 

f  1164 

c 

I1  =  IF1(X, XLL, 1, NQNX,  1) 

/■ 

1165 

c 

12= IF2 ( X , XMM , 1 1 , NONX  ,  1 ) 

<  1166 

c 

TYPE  A, '  30  LOOP' , 11, 12 

sx 

I  1167 

DO  30  1=11, 12, IX 

r 

:  1168 

N  Y 1  =  l 

1169 

NY2=NYl+(nony-l)AlY 

rN! 

.  1170 

c 

CALL  LIMIT  (Y,YLL,NYl,NY2,iy,NYl) 

ft 

l  1171 

c 

CALL  LIMIT  ( Y , Yhrt ,NY 1 ,NY2 , iy ,NY2) 

ft 

1172 

c 

NY1=IF1(Y,YLL,NY1,NY2,IY) 

S3 

|  1173 

c 

NY2=  IF2( Y , YMM ,NY1 , NY2 , IY) 

i 

1174 

c 

TYPE  A,  '  40  LOOP  ',NY1,NY2 

o 

J  1175 

DO  40  J=NY1,NY2,  IY 

1176 

IE  (J.EQ.NY1)  WRITE  (90,101),  X(J),Y(J) 

:  1177 

WRITE  (90,102),  XU), YU) 

W\*l 

1178 

40 

CONTINUE 

A' 

.*■ 

|  1179 

101 

FORMAT  ( '  PU;PA' ,2E11 .3, ' J ' ) 

t 

1180 

102 

FORMAT  ( '  PD'  ,2F11 .3, ' ; ' ) 

T'l 

'  1181 

30 

URITE  (90, A)  '  PU ; ' 

;  1182 

y 

'  1183 

WRITE  (5, A)  'DO  YOU  NEED  NODE  NOS.  (Y/N)..' 

■„ \ 
V 

;  n84 

READ  (5,33)  JUNK 

»  " 

V 

1  1185 

33 

FORMAT  (A) 

n 

r  1186 

IF  UUNK.EQ. ' i ' .OR.JUnK.EQ. 'y' )  GO  TO  44 

;yj 

ii87 

GO  TO  66 

.M 

(  1188 
» 

) 

WRITE  (5, A)  '..ENTER  SSX,SSY...' 

A-22 

1 

• 

r 

•  ■} 

> 

V  /  V  V  V  v  v  ’  -V 

v^Vv;v;Vv  '■  '■ •-  >'.>;■ -/• /.  .\vV 

1189  ' 

1190  44 

1191 

1192  !  — 

1193 

1194 

1195 

1196  C 

1197  C 

1198 

1199 

1200 

1201  C 

1202  C 

1203 

1204  ! 

1205 

1206 

1207 

1208 

1209 

1210 
1211 
1212 

1213 

1214 

1215 

1216 

1217 

1218 

1219 

1220 

1221  100 


READ  (5,*)  SSXf SSY 
SSX=0.1 
SSY =0 . 15 

WRITING  THE  NODE  NUMBERS - 

WRITE  (90, A)'SIO. 1,0.15;' 

Jl=level 

J2=(nony-l)Aiy+jl 
CALL  LIMIT  ( Y , YLL, jl,j2,iy,Jl) 

CALL  LIMIT  ( Y,YMM, J1 , j2, iy, J2) 

DO  100  3=31 , 32 ,  IY 
NX  1  =  j 

NX2=nxl+ IY-ix 

CALL  LIMIT  (X,XLL,NX1,NX2, IX,NX1 ) 

CALL  LIMIT  (X,XMM,NX1,NX2, IX.NX2) 

TYPE  A, (KK,KK=NX1 ,NX2, IX) 

DO  100  IN  =  NX 1 ,NX2, IX 

NXX=< IN-NX1 )/IX+l  (skipping  the  f3ee  nos 

IE  (M0D(J,2).EQ.0.AND.M0D(NXX,2) .EQ.O.and. 
ntype . eq . 21 ) GO  TO  100 
1=  IN 

IF  ( IPL0T.EQ.2)  I  =  MIP(  IN, 1 ) 

SPL=-0 . 8 
XXX=X( IN) 

YYY  =  Y (  IN) 

IF  (XXX. LT.XLL.OR.YYY.LT. YLL)  GO  TO  100 
IF  (XXX.GT.XMM.OR. YYY.GT. YMM)  GO  TO  100 
CALL  SYMB  ( XXX , YYY , SPL , I ) 

IF  (IPLOT.EQ.l)  GO  TO  100 
I=M IP ( IN, 2) 

SPL=0 . 2 

IF  ( I.NE.O)  CALL  SYMB  ( XXX , YYY , SPL ,  I ) 

URITE  (90, A)  '  FU ; ' 

WRITE  ( 90, A ) , ' SPO ; ' 

WRITE  (5, A)  'TYPE  another  LEVEL  no.  to  plotted 

READ  (5, A)  LEVEL 

if  (level. ne.O)  go  to  888 

RETURN 

END 

SUBROUTINE  SYMB  <X,Y,SPL,I> 

LOG  ICALA 1  ETX , ESC 
DATA  ETX/ 1 3/ ,ESC/ ’ 33/ 

NC=  1 

IF  (  I.GT.9)  NC  =  2 
IF  (  I.GT.99)  NC  =  3 
IF  (I.GT.999)  NC=4 
IF  (  I.GT.9999)  NC=5 
IF  (  I. GT. 99999)  NC=6 
SPC=-(0.33+0.5A(NC-l ) )+2. 

URITE  (90,101),  X , Y 

IF  (NC.EQ.l)  WRITE  (90,201  )  SRC , SPL ,  I , ETX 
IF  (NC.EQ.2)  URITE  (90,202)  SRC , SPL ,  I , ETX 
IF  (NC.EQ.3)  WRITE  (90,203)  SPC , SPL ,  I , ETX 


1243 

1244 

1245 

1246 

1247 

1248 

1249 

1250 

1251 

1252 

1253 

1254 

1255 

1256 

1257 

1258 

1259 

1260 
1261 
1262 

1263 

1264 

1265 

1266 

1267 

1268 

1269 

1270 

1271 

1272 

1273 

1274 

1275 

1276 

1277 

1278 

1279 

1280 
1281 
1282 

1283 

1284 

1285 

1286 

1287 

1288 

1289 

1290 

1291 

1292 

1293 

1294 

1295 

1296 


IF  (NC.12u.-t)  WRITE  (90,204)  SPC, SPL,  I,ETX 
IF  (NC.EQ.5)  WRITE  (90,205)  SPC , SPL ,  I , EIX 
IF  (NC.EG.b)  WRITE  (90,206)  SPC, SPL, I, EIX 


101 

EORMAT  ( 

'  PU;PA',2F11.3,';') 

201 

FORMAT  ( 

'  CP' ,2F6.2,' ; LB ' , 11, A2) 

202 

FORMAT  ( 

'  CP',2F6.2,';LB',I2,A2) 

203 

FORMAT  ( 

'  CP' , 2F6 . 2 , ' ; LB ' ,  13, A2) 

204 

FORMAT  ( 

'  CP' , 2F6.2 , ' ; L B ' , I4fA2) 

205 

FORMAT  ( 

'  CP ' , 2F6 . 2 , ' ; LB ' ,  15, A2) 

206 

FORMAT  ( 

'  CP' ,2F6.2, ' ;LB' , 16, A2) 

RETURN 

END 


SUBROUTINE  LIMIT  ( A , AL ,  1 1 , 12 ,  IN ,  IF1 ) 
c--  to  find  the  lower  limit  of  do  loop... 

DIMENSION  A ( 1 ) 

DO  10  1=11, 12, IN 
C  TYPE  A, A( I ) , AL 

IF  (A( I) .GE. (AL-1.0E-03) )  THEN 
IF  1  =  I 
RETURN 
END  IE 

10  CONTINUE 

END 

INTEGER  FUNCTION  If 21 A,AL, II , 12, IN) 
c  —  to  find  the  lower  limit  of  do  loop... 

DIMENSION  A(l) 

IF2=  12 

DO  10  1=11, 12, IN 
C  type  A ,3 ( 1 ) ,a 1 

IF  <A(  I) .GE. (AL-1.0E-03) )  THEN 
IF  1=  I 
RETURN 
END  IE 

10  CONTINUE 

END 

e &===== ================= ================================r= 

SUBROUTINE  HOLE  (  r>: ,  NONX  ,N0NY  ,  NONE ,  XX  ,YY ,  ZZ ,  X ,  Y  ,  Z ) 

C  GENERATING  POLAR  COORDINATES  AND  POLAR  MESH-- 

DIMENSION  XX ( 1) ,YY(1> ,ZZ( 1) ,X( 1) ,Y(1) ,R( 100) ,NC(4> 
.  ,Z(1) 

c  TYPE  A, ( XX ( I) , 1=1, NONX ) 

c  TYPE  A, ( YY  <  I) ,  1  =  1  ,NONY) 

c  TYPE  A, <ZZ(  I) ,  1=1 ,NONZ) 

pi=3. 14159265 
EPS=1 .0E-05 


IX=NONZ 
I Y=NONX ANONZ 
DO  31  1=1, NONX 
rad  =  r;: 

if  ( .<x  (  i  )  .  rie.0.0)rad=sqrt(xx(i)AA2  +  rxAA2) 


A  -24 


DO  31  J  =  1 , NONY 


i:-:>7 

1 398 

1399 

1300 

1301 
1303 

1303 

1304 

1305 

1306 

1307 
1303 

1309 

1310 

1311 
1313 

1313 

1314 

1315  31 

1316  C-- 

1317 
1313 
1319 
1330 
1321 

pnn 

1323 

1324  20 
1323 

1326 

1327 
1323 

1329  30 

1330 

1331 


( l ) 

if  Cyy ( j >  .  le  .  I rx-eps  )  )  then 
:<xx=r  ad 

if  ( y y  (  J )  •  ne . 0 . ) sqrt  ( r  adAAZ-yy 1  j  !  AA2  ■ 
nbk  =  i  j  - 1 )  A  l  y  +  (  i  -  2 )  A  l ::  + 1 
TYPE  A,NBK 

if  ( ( (nbk)).lt.(  ;■:;<<  2 )  - (1)1);  .;;  =  '  •.  nbl. )  + 
end  if 

n:;y=  ( J- 1 ) A IY  +  ( 1-1 )  A IX 
DO  31  K  =  1 , NONE 
N  =  rr,:y  +  K 
X  ( H 

IF  (I.EQ.NQNX)  X(N)=XX(N0NX' 

Y  ( N )  =  Y  Y  ( J  ) 

Z(N>=ZZ(K) 

continue 

correcting  for  center  nodes  for  21  node  element 

DO  20  K= 1 , N0NZ 

DO  20  3=1. NONY 

DO  20  1=1 ,f|0NX 

IF  (M0D( 1,2)  .NE.0)  GO  TO  20 

N=(J-l)AIY+(  I-DAIX+K 

X  ( N )  =  ( X ( N- IX ) +X ( N+ IX ) ) / 2 . 0 

CONTINUE 

do  30  j=lfnony 

do  30  i  =  l,norix 

n  =  (  j  - 1 )  A  i  y  +  ( i  - 1 )  A  l + 1 

type  A  , n,;c(n>  ,y(n) 

CONTINUE 

RETURN 

END 


APPENDIX 
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LISTING  OF  THE  MAIN  CODE 
I 


\ 

I 


I 


' KSAP  II' 


\ 


,1 


m 

f 

r 

f 

f 

t 

i 


i 


j 

i 

f 

I 

t 

I 

i 


l  c 
r>  r 

3  L 

4  C 

5  C 

6  C 
?  C 

s  c 
9  C 

10  c 

11  c 

12  c 

13 

14 

15 

16 

17 

18 

19 

20 
21 

22  C 

23  C 

24  C 

25 

2G  C 

27  C 

28  c 

29  A- 

30 

31 

32  1 

33 

34 

35  ' 
3G 

37 

38  ! 

39  1 

40 

41 

42  ! 

43 

44 

45 
4G 

47 

48 

49  C 

50 

51 

52 

53 

54 


AA 


A  A 


AA  AA  AA  A*  AA  A  A  AA  AA  AA  AA  AA  AA  AA  AA  AA  A  A  A 
K  SAM  Ll 

SIMPL  IF  IED  VERSION  OF  SAP4  FOR 
USING  ELEMENT  TYPE  8  ONLY 


September  1987 


AA  AA  AA  A  A  Aa  A a  A  A  AA  Aa  AA  AA  AA  AA  AA  AA  x  x  a 

IMPLICIT  REALA8(A-H,Q-Z) 

REALA4  T , IT 

COMMON  /JUNK  /  HED  U2  >  ,  JUK  ( 4GG ) 

COMMON  /ELPAR/  NPAR( 14) , NUnNP , MBAND, NELTYP , N1 , N2 , N3 , N4 , N5 , M f OT , NEO 
COMMON  /EM/  QQQ(2840) 

COMMON  /OYN/  I0U5 (11) f NOYN 
COMMON  /TAPES/  NGQ ( G ) 

COMMON  /EXTRA/  MODEX , NT8 , N 10SV , NT10 , KEQB , NUMEL, T ( 1 0 ) 

COMMON  /SOL/  NBLOCix , NEQB , LLf NE ,  IDUM ,NE IG,NAD, NVO, ANORM , NFU 

PROGRAM  CAPACITY  CONTROLLED  BY  THE  FOLLOWING  TWO  STATEMENTS  ... 

COMMON  A ( G500G1 )  ! CHANGE  nIOT  ALSO 

OPEN  SCRATCH  FILES 

OPEN  (UNIT=1, STATUS3' UNKNOWN ' , FORM3 ' UNFORMATTED ' ) 


open ( uni t-1 , F ILE3 ' SCR: CASU . EMANI3 ' , status3 ' scratch ' , 

. form3' un form it ted' ) 

open(unit32, status3 ' scratch' , f orm='unf or ■at ted' )  ! dr  aO 

open  (uni t  =  2, f l le3 ' SCR : C ASW . EM AN  13 ' ,  status3 'new' , blocks lse-sBOO , 
.far»='urifornatted' )  ImsaO: 

open( uni t=3 , status3 ' scratch' , for m= ' unformatted ' )  ! dr  aO : 

open  (uni t  =  3, f i le='UIL: C ASW.EMAN  13 ' , status3 ' new ' ,blocRsice34800  , 

.form3 'unformatted' )  ■  msaO: 

open  ( urnt=3 , f i le3 ' MSAO : CESRJ ' , status='new' ,blocksise34800 , 

. for o= ' unformatted ' )  ImsaO: 

OPEN  ( UN  11  =  4, FILE3' SCR :C ASW.  EMANI J  '  ,SIAIUS3' NEW'  , BLOCKS  IZE  =  480Q, 
.FORM3'UNFORMATTED' )  • dmaO : 

o pen (unit =55, status3 'UNKNOWN' , form3 ' unformatted' )  ' drao 

OPEN  (UNIT  =  55,F  ILE 3 'SCR: CASW.EMANIJ' , STATUS3 ' NEW ' ,BLQCKSIZE34800, 

. FORM3 ' UNFORMATTED ' )  'DMAO: 

open ( uni t38, FILE3 'SCR : EASU. EMANIJ ' , status3 ' scratch' , 

.EORM3'UNFORMATTEO' >  'dmaO: 

open (unit-9, FILE3' SC R:CASW. EMAN 13 ' , status3 ' scratch ' , 

.EORM3'UNEORMATTED' )  1 dmaO : 

OPEN  (UNIT=15,STATUS3'SCRATCH' ,EORM3'UNEORMATTED' )  'DRAO: 

open (unit3 16 , F ILE= ' SCR : CASW.EMANIJ ' , status3 ' scratch'  , 

.FORM='UNFORMATTED' )  'dmaO: 

open ( un 1 1= 1 8, FILE3' SCR :CASU. EMANIJ' , st3tus= ' scratch  ' , 

.FORM3'UNFORHATTED' )  'dmaO: 

open  ( uni  t=  1 9 ,  f  l  le- '  workdone  .wok. ',  status3 '  new'  >  IdraO: 


open  (unit =33 , f 1 le= 'SCR: C ASU.EMAN  IJD  ISP .dat ' , si jtus= ' new ' ) 
open  ( uni t=34,file=' ksapout.dat' , status= ' new ' ) 

OPEN  (u.m  =  ib,EILt=  oLr :  LftSb . EMAn Ij '  ,SIATUS='NtW' , tfLULK:>I'2t=4bOO, 
. FQRM= 'UNFORMATTED ' ) 


THE  following  should  be  1  less  than  A()  ditension 
hT0T=  650000  !  300000 


USE  THE  IBM  FORTRAN  EXTENDED  ERROR  HANDLING  EACILITY  TO 
ELIMINATE  PRINTOUT  OF  UNDERFLOW  ERROR  MESSAGE  (ERROR  NUMBER  208) 


CALL  ERRSET  (208,256,-1,1) 


CALL  STIME 


NT8  =  8 
REWIND  NI8 
NI10=  10 
REUIND  NI10 
N 1  =  1 


PROGRAM  CONTROL  DATA 


5  CALL  TTIME(T(1)) 

READ  (5,100,END=990)  HED, NUMNP,NELIYP,LL,NF, NDYN, MODEX, NAD, 

1  KEQB,N10SV,NDQF 

IF(MODEX.GT.O)  MODEX  =  1 
IF  (NUMNP.EQ.O)  STOP 

WRITE  (33,200)  HED,NUMNP,NELTYP,LL,NF,NDYN, MODEX, NAD, KEQB,N10SV 

WRITE  (13,298)  HED  ! WORKDONE .WOK  FILE  TILTE . 

WRITE  (34,299)  HED  IKSAPOUT.DAT  (STRESSES)  FILE  TILTE . 

IF (KEQB . LT . 2)  KEQB  =  99999 
IF  (NDYN.NE.O)  LL=1 
IF(LL.GE.l)  GO  10  10 
WRITE  (33,300) 

STOP 

CAAA  DATA  PORTHOLE  SAVE 
10  IF ( MODEX . EQ . 1 ) 

AWRITE  (NT8 )  HED,NUMNP,NELTYP,LL,NF,NDYN 


KDYN  =  IABS(NDYN)  +1 
IF ( KBYN . LE . 5 )  GO  TO  14 
WRITE  (33,310)  NDYN 

STOP 


RE-START  MODE  ACTIVATED  IF  NDYN.EQ.-2  OR  NDYN . EQ . -3 


14  IF(NDYN.LT.O)  GO  TO  20 


INPUT  JOINT  DATA 


109  N2-N1 +  6ANU/1NP 

110  N3=N2+NUMNP 

111  ft  4  -  it  o  •  ft  Li  h  ft  1 

112  N5=N4+NUMNp 

113  N6=N5+NUMNP 

114  IF (N6 . GT . nTOT )  CALL  ERROR ( N6-MTQT ) 

115  C 

116  CALL  INPUTJ(A(Nl),A(N2),A(N3),A<N4),A(N5).NUMNP,NEQ) 

117  C 

118  C  EON  E  L  E  n  E  N  T  31  1FFNESSES 

113  C 

120  CALL  IT InE ( I  ( 2  '  ) 

121  C 

122  MBANB-0 

123  NUrtEL-u 

124  REWIND  1 

125  REWIND  2 

126  C 

127  DO  900  (1=1  ,NELTYP 

128  REAu  '.5.1001)  NPAk 

129  CAA *  DATA  PORTHOLE  SAVE 

130  IF(HODEX.EQ.l)  URITE  (NT8)  NPAR 

131  URITE  (1)  NPAR 

132  NUMEL=NUnEL+NPAR(2) 

133  MTYPE=NPAR ( 1 ) 

134  C 

135  CALL  ELTYPE(MTIPE) 

136  C 

137  900  CONTINUE 

138  C 

139  C  DETERrtlNt  BLQCKSIZE 

140  C 

141  C  ADDSTF 

142  C 

143  LL1=LL+ND0F  ‘IN  the  following  LL  is  replaced  with  LL1 

144  NEQB=(nT0T  -  4ALL)/(NBAN0  *  LL1  +  1 ) / 2  (modified  with  ndof 

145  C 

146  C  Q9ER-R IDE  THE  SYSTEM  MAIRIX  BLOCKSIZE  WITH  THE  INPUT  (NON-ZERO) 

147  C  VALUE,  KEGE) . 

148  C  THIS  OVER-RIDE  ENTRY  IS  TO  ALLOW  PROGRAM  CHECKING  OF  MULT  I  - 

149  C  BLOCK  ALGOR  ITHnS  WITH  WHAT  UOULD  NORMALLY  BE  ONE  BLOCK  DATA. 

150  C 

151  IF ( KEQB . LT . NEQB )  NEQB  =  KEGB 

152  C 

153  GO  TO  (690,700,700,700,730),  KDYN 

154  C 

155  C  STATIC  SOLUTION 

15b  C 

157  690  CONTINUE 

158  NEQB  1  =  ( MTOT  -  nBuND ) / ( 2A ( nBAND  +  LLl )  +  1) 

159  NEQB2=(fiT0T  -  MBAND  -  LL1  A  <  MBAND-2 )  )  /  ( 3ALL1  +  MBAND  +  1) 

16b  IF  (NEQB 1 . LT . NEQB  )  NEQB  =  NEQB1 

161  IF  (NEQB2.LT.NEQB  )  NEQB=NEQB2 

162  N6L0CK  =  (MEQ-1 )/NEQB  +1 


163  IF(NEQB.GT.NEQ)  NEQb-NEQ 

164  GO  TO  790 

165  C 

166  C  E IGENSGLUT  ION 

167  C 

163  C  1.  DETERMINANT  SEARCH  ALGORITHM 

1 69  C 

170  700  IE  (NEQB.LT.NEQ)  GO  TO  710 

171  NIM=3 

172  NC=NF  +  NlM 

173  NVM=6 

174  NCA=NEQAMAXO( MBAND , NC ) 

175  NTOT=NCA  +  4ANEQ  +  2ANVMANEQ  +  5ANC 

176  NEIG=0 

177  IF(NIOT.LE.MTOT)  GO  TO  720 

178  r. 

179  C  2.  SUBSPACE  ITERATION  ALGORITHM 

180  C 

181  710  NV=MINQ (2ANF , NF+o) 

182  IF  NAD.NE.O)  NV=NAD 

183  NEQB1= ( MTOT  -  NBANB ) / ( 2AMBAND  +  1) 

184  NEQB2= ( MTOT  -  MBAND  -  2ANV  -  NVA(M6AND~2) )/(3ANV  +  MBAND  +  1) 

185  NEQB3= (MTOT  -  3ANVANV  -  3ANV)/(2ANV  ♦  1) 

186  NEQB4= ( MTOT  -  6ANV)/(1  +  MBAND) 

187  IF  (NEQB1.LT. NEQB)  NEQB=NEQB1 

188  IF  (NEQB2.LT.NEQB)  NEQB=NEQB2 

189  IF  (NEQB3.LT. NEQB)  NEQB=NEQB3 

190  IF  (NEQB4.LT.NE0B)  NEQB=NEQB4 

191  NEIG=1 

192  C 

193  720  CONTINUE 

194  NBLOCK  =  (NEQ-1 )/NEQB  +1 

195  IE  (NEQB.GE.NEQ)  NEQB=NEG 

196  C 

197  C  HISTORY  OR  SPECTRUM  ANALYSIS 

198  C 

199  KREM  =  1000 

200  NTOT  =  NBLOCKANEQBANF  +  KREM 

201  IF(MIOT.LT.NTOT) 


202 

203 

204  C 

205  C 

206  C 

207 

208  C 

209 

210  C 

211  C 

212 

213  C 

214  C 

215  C 

216 


AURITE  (33,320) 

GO  TO  790 

STEP-BY-STEP  DIRECT  INTEGRATION 
730  CONTINUE 

DISPLACEMENT  COMPONENTS  FOR  DIRECI  OUTPUT  ( ANSDA ) 

NN2  =  NEC 

DISPLACEMENT  COMPONENTS  REQUIRED  FOR  RECOVERY  OF  ALL  OF  THE 
REQUESTED  ELEMENT  STRESS  COMPONENTS  (ANSSA) 

NN3  =  NEQ 

1.  DECOMPOSITION 

NEQB1  =  (MIGI-NN2-NN3-NEQ-MBANB )/<  2AMBAND+1 ) 


B-  4 


/,  »*',  ✓  V  /  v  ✓  /  .»  V 

■  kV  L*V  V_*W  i_V 


TIME  INTEGRA!  ION  PHASE 


2  J  7  C 
218  C 
218  C 

220  BC3l=  MBAND+2A(NN2+NN3)r5ANEQ  + ( 2AM&ANB+ 1 ) 

TO  1 
TOO 

223  write  (33,552)  seal 

224  555  forsat ( //5:< ,  '  Hirnsuni  aiukension,  riTQT,  required  for  array  A(  ; 

225  .  =  ' ,  I8/5X,50i lH+>//> 

226  if (stot. le. seal >  STOP  1  Abnormal  stop  as  dis.  of  A  is  msui ficient 

2^7 

228  NEQB2  =  (MluT-rtbAND-2A(NN2*NN3)-5ANEQ)/(MBAND+l ) 

228  C 

230  IF(NEQBl.LT.NEQB)  NEut?  ^  NEGbl 

231  IE ( NEQB2 .  LT . NEQB )  NEQB  =  NEQB2 

232  IF (NEQB.GI.nEQ)  NEQB  -  NEQ 

233  NBLOCK  =  ( NEQ-1 ) /NEQB  +1 

234  C 

235  C  3.  INPUT  PHASE 

236  C 

237  C  NUMBER  OF  TIME  FUNCTIONS  (ANENA) 

238  NN2  =  10 

238  C  MAXIMUM  NUribER  OF  FUnCIION  DEFINITION  POINTS  (AMXLPA) 

240  NN3  =  40 

241  6 

242  NN4  =  6ANUMNP  +  2ANN2ANEG 

243  IF ( NN4 .GT  . MTOT ) 

244  AWRITE  ( 33 , 320 ) 

245  NN4  =  NEQA2A(NN2+1 )  t  nN2A< 1+2ANN3) 

246  IF ( NN4.GI.MT0T ) 

247  AURITE  (33,320) 

248  C 

248  780  CONTINUE 

250  C 

25 1C  INPUT  NODAL  LOADS 

252  C 

253  N3=N2*NEQBALL 

254  N4=N3+6ALL 

255  WRITE  ( 33 , 2ui ;  NEQ, nBAND, NEQB, NBLOCK 

256  C 

257  CALL  TT  IME ( T ( 3 ) ) 

258  C 

258  CALL  INL(AwU) ,A(N2) ,A(N3) ,A(N4) , NUMNP , NEQB , LL ) 

260  C 

261  CALL  TT  Int ( T ( 4 ) ) 

262  C 

263  C  FORM  IUTAL  5IIFENESS 

264  C 

265  NE2B=2ANEGB 

266  N2=Nl*NEQBAnBANB 

267  N3=N2+NEQBALL 

268  N4=N3+4ALL 

268  NN2-Nl+NE2BAnBAND 

270  NN3=NN2+NE2BALL 


B-  5 


NN4=NN3*-4ALL 


271 

r 

+A  l  t M  V 

273 

274 

275  C 

276 

277  C 

278  C 

279  0 

280 

281  C 

282  C 

283  C 

284 

285 

286 

287 

288  C 

289 

290 

291 

292 

293 

294  C 

295  C 

296  C 

297 

298  C 

299 

300 

301 

302 

303 

304  C 

305  C 

306  C 

307 

308 

309  C 

310 

311 

312 

313 

314 

315 

316 

317 

318 

319 

320 

321 

322  C 

323 

324 


CALL  ADDSIE  ( A(Nl > ,  A(NN2 ) , A( NN3> , A(NN4> ,NUMEL,NBLGCK,NE28 ,LL ,hbAND 
1 ,  ANORft,NW> 

CALL  TT Ih£(I (5 ) ) 

SOLUTION  PHASE 
2u  OQ  TO  130,40,50,60,70),  KOTA 
STATIC  SOLUTION 

30  IF(ttGDEX.EQ.O)  00  IQ  32 
DO  31  1=6,10 

31  Id)  =  T(5) 

GO  TO  90 

32  CALL  SOLEQ 

CALL  TT IM£( T < 6) ) 

DO  33  1=7,10 

33  T(I>  =  T<6) 

GO  TO  90 

EIGENVALUE  EXTRACTION 

40  1(6)  =  T  <  5  > 

CALL  SOLEIG 
CALL  TTIH£(T(?)> 

T (8  >  =  1(7) 

1(9)  =  T<  7 ) 

I(10>=  T(7> 

GO  TO  90 

FORCED  DYNAttIC  RESPONSE  ANALYSIS 

50  1(6)  =  T(5> 

lE(NOYN.LT.Q)  GO  TO  52 

CALL  SOLEIG 

CALL  TTIME  ( T( 7 ) ) 

GO  TO  54 

52  DO  53  1=1,6 

53  T(  1+1 )=T( I) 

REWIND  2 

READ  (2)  NEG,NDLQCK,n£QB,HBAND,N1 ,NF, <QQQ( I) , 1=1 , ME) 

REWIND  55 

IMAX=NEQBANF 

HEfiU  (55)  (AU) ,  1  =  1, NF) 

DO  56  L=1 ,NBLOCK 
56  READ  (55)  (A(  I),  1=1 ,  IHAX) 

54  CONTINUE 

54  CALL  H ISTR ( 

CALL  TTIHE  (I(8)> 

1(9)  =  K8J 


b-  6 


325 

It  10)=  ltd) 

326 

GO  10  90 

327  C 

328  C 

RESPONSE  SPECTRUM  ANALYSIS 

325  C 

330 

60 

1(6)  =  1(5) 

331 

IF(NDYN.LT.O)  GO  TO  62 

332  C 

CALL  SOLE IG 

333 

CALL  TTInE  <T(7) > 

334 

T <  8 )  =  1(7) 

333; 

r\  r  a 

u u  iu  on 

336 

62 

DO  63  1=1,7 

337 

63 

1  <  1  +  1  )=T(  I) 

338 

REWIND  2 

339 

READ  (2)  NEQ,NBLQCK,NEQB,ttBAND,Nl,i 

340 

REWIND  55 

341 

IMAX=NEQ6ANF 

342 

READ  (55)  ( A(  I) ,  1  =  1 ,NF) 

343 

DO  66  L= 1 , NBLOCK 

344 

66 

READ  (55)  (A(  I)  ,  1  =  1 ,  ItlAX) 

345 

64 

CONTINUE 

346  C 

64 

CALL  RESPEC 

347 

CALL  TTIME  (1(9) ) 

348 

T( 10 ) =  1(9) 

349 

GO  TO  90 

350  C 

351  C 

STEP-BY-STEP  (DIRECT  INTEGRATION)  , 

352  C 

353 

70 

DO  71  1=6,9 

354 

71 

T(  I)  =  T (5 ) 

355  C 

CALL  STEP 

356 

CALL  TTIHE(T(10) ) 

357  C 

358  C 

COMPUTE  AND  PRINT  OVERALL  TIME  LOG 

359  C 

360 

90 

TT  =  0.0 

361 

DO  95  1=1,9 

362 

T(  I)  =  T( I+l)-T( I) 

363 

TT  =  TT  +  T( I) 

364 

95 

CONTINUE 

365  C 

366 

URITE  (33,203)  (T(K) ,K=1 ,9) ,TI 

367  C 

368 

GO  TO  5 

369 

990 

CONTINUE 

370  C 

-- 

CLOSE  ALL  SCRATCH  FILES 

371 

CLOSE  (UNIT  =  1 ) 

372 

CLOSE  (UNIT  =  2 ) 

373 

CLOSE  (UN  I T  =  3  ) 

374 

CLOSE  (UNIT  =  4 ) 

375 

CLOSE  ( UN  IT  =  55 ) 

376 

CLOSE  ( UN IT=8 ) 

377 

CLOSE  ( UN  IT  =  9 ) 

378 

close  <urut  =  15) 

'  --  ^  w  vV  AVv  v- 


\  «\  *■ 


lcccvcci;> 


V  _■  .*  j-  \> 


379  close  (uriit  =  lt>) 

380  close  (urat=18) 

381  close  (unit=19) 

382  C 

383  STOP 

384  C 

385  100  FORMAT  ( 12A6/10I5) 

386  299  FORMAT ( /2X , 1 2A6/ > 

387  200  FORMAT ( 1H1 , 12A6/// 


388 

1 

38H 

C  0  N  T 

R  0  L  INFORM 

A  1 

I  0 

389 

o 

u 

27H 

NUMBER 

OF  NODAL  POINTS  =, 

15 

/ 

4X, 

390 

3 

27H 

NUMBER 

UF  ELEMENT  TYPES  =  , 

15 

/ 

4X, 

391 

4 

27H 

NUMBER 

of  load  cases  = , 

15 

/ 

4X, 

392 

5 

27H 

NUMBER 

OF  FREQUENCIES 

15 

/ 

4X, 

393 

6 

27H 

ANALYSIS  CODE  (NDYN)  =, 

15 

/ 

4X, 

394 

7 

16H 

EQ.O, 

STATIC, 

/ 

4X, 

395 

8 

26H 

EQ.l, 

MODAL  EXTRACTION, 

/ 

4X, 

396 

9 

25H 

EQ.2, 

FORCED  RESPONSE, 

/ 

4X, 

397 

A 

27H 

EQ.3, 

RESPONSE  SPECTRUM, 

/ 

4X, 

398 

k 

28H 

EQ .  4 , 

DIRECT  INTEGRATION, 

/ 

4X, 

399 

B 

27H 

SOLUTION  MODE  (mODEX)  =, 

15 

/ 

4X, 

400 

C 

19H 

EQ.O, 

EXECUTION, 

/ 

4X, 

401 

D 

20H 

EQ.l, 

DATA  CHECK, 

/ 

4X, 

402 

E 

19H 

NUMBER 

OF  SUBSPACE, 

/ 

4X , 

403 

F 

27H 

ITERATION  VECTORS  (NAD)  =, 

15 

/ 

4X, 

404 

G 

27H 

EQUATIONS  PER  BLOCK  =, 

15 

/ 

4X, 

405 

H 

27H 

TAPE10 

SAVE  FLAG  (H10SV)  =, 

15 

/ 

4X> 

406 

407 

408 

409 

410 

411 

412 

413 

414 

415 

416 

417 

418 

419 

420 

421 

422  C 

423 

424 

425 

426 

427  C 

428 

429 


201  FORMAT  (38H1E  QUATIQN  PARAMETERS,// 
*  34H  TOTAL  NUMBER  OF  EQUATIONS  =,I5, 

1  /34H  BANDWIDTH  =,I5, 

2  /34H  NUMBER  OF  EQUATIONS  IN  A  BLOCK  =,I5, 


3  /34H  NUMBER  OF  BLOCKS 

203  FORMAT  < 1 H 1 , 3 1H0  V  E  R  A  L  L  T  I 

1  5X ,  30HNQDAL  POINT  INPUT 

2  5X , 30HELEMENT  STIFFNESS  FORMATION 

3  5X ,  30HNQ0AL  LOAD  INPUT 

4  5X , 30HT0TAL  STIFFNESS  FORMATION 

5  5X  , 30HSTAT IC  ANALYSIS 

6  5X,30H EIGEN VALUE  EXTRACTION 

7  5X , 30HF0RCED  RESPONSE  ANALYSIS 

8  5X , 30HRESP0NSE  SPECTRUH  ANALYSIS 
k  5X,30HSTEP-BY-ST£P  INTEGRATION 

9  5X , 30HI0IAL  SOLUTION  TIME 


I  M  E 


=  ,  15) 
LOG,// 
F8.2  / 

F8.2  / 

F8.2  / 

F8.2  / 

F8.2  / 

F8.2  / 

F8.2  / 

F8.2  / 

F8.2  // 

F8.2  /) 


300  FORMAT  (//  48H  kk  ERROR.  (AT  LEAST  ONE  LOAD  CASE  IS  REOU  IkED )  ) 

310  FORMAT  (//  33H  kk  ERROR.  ANALYSIS  CODE  ( NDYN  =,I3,9H)  IS  BAD.  ) 

320  FORMAT  <//  47H  kk  WARNING.  ESTIMAIE  OF  STORAGE  FOR  A  DYNAMIC, 

1  32H  ANALYSIS  EXCEEDS  AVAILABLE  CORE,  //  IX) 

1001  FORMAT  (1415) 

END 


430  CS==: 

431 

432 


SUBROUTINE  ADDSTF  ( A , B , ST R , TMASS , NUMEL , NBLOCK , NE2B , LL , MB AND , ANORM , 
1NVV ) 


,»v’.W  WR* .  »■. w, vtttt: .^.»h ■..  ■  > ■  w 


433  C 

434  IMPLICIT  REALA8 ( A~u ,0-2) 

435  C 

436  C  CALLED  BY :  MAIN 

437  C 

438  C  FORMS  GLOBAL  EQUILIBRIUM  EQUATIONS  IN  BLOCKS 

439  C 

440  DIMENSION  A ( NE26 , nBANO > , B< NE2B , LL ) , STR< 4 , LL ) , TMASS < NE2B ) 

441  C 

442  COMMON  /Din/  nT,nGT,ALFA,DT, BETA, NFN, NGM, NAT, NDYN 

443  COMMON  / £n/  LRD , NO , Ltt ( 63 ) , IP AD , SS ( 2331 ) 

444  COMMON  /EXTRA/  MUOEX ,nT8, IFILLt 14) 

445  C 

446  NEGB=NE2B/2 

447  K=NEQB+1 

448  X-NBLOCK 

449  MB=DSQRT ( X  ) 

450  MB  =  MB/2+ 1 

451  NEBB=MBANE2L 

452  MM=1 

453  N  0  E  G - 0 

454  N0V=0 

455  ANORm^O. 

456  NSH  IFT  =  0 

457  REWIND  3 

458  REWIND  4 

455  REWIND  9 

460  C 

461  C  READ  ELEMENT  LOAD  MULTIPLIERS 

462  C 

463  WR ITE  (33,2000) 

464  DO  50  L= 1 , LL 

465  READ  <5,1002/  < SIR < I , L ) , 1=1 , 4 ) 

466  50  WRITE  (  33,2002)  L  ,  ( STR <  I , L ) ,  1= 1 , 4 ) 

467  IF ( MODEX . EQ . 0 )  WRITE  <8)  SIR 

468  C 

469  C  FOR  A  STEP-BY-STEP  ANALYSIS  (NDYN.EQ.4)  READ  THE  SOLUTION 

470  C  CONTROL  CARD.  THE  TIME  STEP  (DT)  AND  THE  DAMPING  CuEFFICIE 

471  C  (ALFA/BETA)  ARE  kEGUIREB  FOR  THE  ASSEMBLY  OF  THE  EFFECTIVE 

472  C  SYSTEM  STIFFNESS  MATRIX  IN  THIS  ROUTINE. 

473  C 

474  IF  (  NDYN  .  NE  .  4  )  GU  TO  t>5 

475  C 

476  READ  ^5,1004)  NFN , NGM , NAT , NT , NOT , DT , ALFA , BETA 

477  WRITE  (33,2004/  nFn , NGM , NAT , NT , NOT , DT , ALFA , BETA 

478  IF ( NAT . EQ . 0 )  NAT  =  1 

479  IF ( NOT . EG  .  0 )  NOT  =  1 

480  IF(DT.6T. 1.0E-12)  GO  10  55 

481  WRITE  (33,3000) 

482  STOP 

483  C 

484  C  COMPUTE  INTEGRATION  COEFFICIENTS  FOR  ASSEMBLY  OF  EFFECTIVE 

485  C  SYSTEM  STIFFNESS  (STEP-BY-STEP  ANALYSIS  ONLY) 

486  C 


55  TETA  =1.4 
Dll  =  TEIAABT 
DT2  =  DT1AA2 

AO  =  (6.+3.AALEAADTl)/(BT2+3.A6ETAABTl) 
65  IF (flODEX.EQ.  1 )  RETURN 


FORM  EQUATIONS  IN  BLOCKS 


(  2  BLOCKS  AT  A  TIME) 


BO  1000  M  =  1 , NBLQCK  ,2 
DO  100  1=  1  f NE2B 
DO  100  3=1, HBAND 
100  A < 1 , 3 )  =0 . 

READ  (3)  <(B(I,L),  1=1 ,NEQB) ,L=1,LL> , (IMASSl I) , 1=1 ,NEQB) 
IF  (M.EQ.NBLOCK)  GO  TO  200 

READ  (3)  ( ( B  ( I ,  L ) , I  =  K , NE2B  > ,L  =  1,LL) , ( THASS ( I) , I  =  K , NE2B ) 
200  CONTINUE 

REWIND  55 
REWIND  2 
NA=55 
NUME=NUM7 

IF  (NM.NE.l)  GO  10  75 
NA  =  2 

NUME=NUhEL 
NUM7  =0 

75  DO  700  N= 1 , NUnE 

READ  (NA)  LRD,NB,(LN(I),I=1,NB),(S5(I),I=1,LRD) 

MSHFT  =  ND  A  (ND  +  D/2  +4  AND 
DO  600  1=1, ND 
LMN=1-LH( I) 

II=LM(  D-NSHIFT 

IF  ( II.LE.O.OR. II.GT.NE2B)  GO  TO  600 
IMS  = I+MSHET 

TMASS( II)=THASS( 1 1 )  +  SS(IrtS) 

DO  300  L=1 ,  LL 
DO  300  J=1 ,4 

KK  =  ND  A(ND+1 )/2  +  NDA(J-l) 

300  B(  II,L)=B( I1,L)+SS< I+KK ) ASTR ( J , L ) 

DO  500  3=1 , ND 
33  =  LM<  3 ) +LnN 
IF(JJ)  500,500,300 
300  IF(J-I)  306,394,304 
304  KK  =  NDAI-(  I-DAI/2  +  3-ND 
GO  TO  400 

306  KK  =NDA 3  - ( 3-1 ) AJ/2+ I-ND 
400  A( II,33)=A( 1 1 , 3 3 ) +SS (  KK) 

500  CONTINUE 
600  CONTINUE 

DETERMINE  IF  STIFFNESS  IS  TO  BE  PLACED  ON  TAPE  55 


IF  (MM.GT.l)  GU  TO  700 
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541 

DO  650  1  =  1, ND 

542 

I I  =  LH (  I )  -NSHIFT 

543 

IFC II.GI.NE2b.AND. II.LE.NEBB)  GO 

TO  660 

544 

650 

CONTINUE 

545 

GO  TO  700 

546 

660 

WRITE  (55)  LRD,ND, (Lrt( I) , I=1,ND) , 

(SS( I) , 1=1, LRD) 

547 

NUh7=NUn?+l 

548 

C 

549 

700 

CONTINUE 

550 

DO  710  L= 1 , NEQB 

551 

ANORH  =  ANORrl  +  A(L,1) 

552 

IF  <A(L, 1 >  .NE.O. )  ND£G=NDEG  +  1 

553 

IF  (A(L.l).EQ.O.)  A ( L, 1 ) =1 .E+20 

554 

IF  (THASS(L)  .NE.O. >  NOO=NVO  +  1 

555 

710 

CONTINUE 

556 

C 

557 

C 

FOR  STEP-BY-STEP  ANALYSIS  ADD  THE 

HASS  CONTRIBUTIONS  TO 

558 

C 

THE  EQUATION  DIAGONAL  COEFFICIENTS 

559 

c 

560 

IF (NDYN.NE.4)  Gu  TO  716 

561 

DO  714  1  =  1, NEQB 

562 

714 

A  ( 1 , 1 )  =  *4  (  1,1)  +  AO  A  TnASS(I) 

563 

URITE  (4)  ( (AU,1) ,  1=1, NEQB)  ,J  =  1, 

HBAND ) 

564 

GO  TO  713 

565 

716 

URITE  (4)  ((A(I, 3),  1  =  1, NEQB), 3  =  1, 

HBAND),((B(I,L),  1=1, NEQB) 

, L= 1 , LL ) 

566 

718 

URITE  (9)  (TflASS(I),  1  =  1, NEQB) 

567 

c 

568 

IF ( h . EQ . NBLOCK )  GO  10  1000 

569 

DO  720  l=K , NE2B 

570 

ANORH=ANQRM  +  A(L,1) 

571 

IF  (A(L,1).NE.0.)  NDEG=NDEG  +  1 

572 

IF  ( A( L , 1 ) , EQ .0 . )  A ( L , 1 ) =1 .E+20 

573 

IF  (TrtASS(L) .NE.O. )  NOV=NVO  +  1 

574 

720 

CONTINUE 

575 

c 

576 

IF(NDYN.NE.4)  60  TO  726 

577 

DO  724  I  =  K , NE26 

578 

724 

A (  1 , 1 )  =  A <  1,1)  +  AOA  TMASS(I) 

579 

WRITE  (4)  ((A(I,3),I=K,NE2B>,3=1, 

HBAND) 

580 

GO  TO  728 

581 

726 

WRITE  (4)  ( (A(  1,3) ,  I  =  K,NE2B) ,3  =  1, 

HBAND) , ( (B(  I , L ) ,  I=K,NE2B) 

, L= 1 , LL ) 

582 

728 

URITE  ( 9 )  (THASS(  I) , I  =  K,NE2B) 

583 

c 

584 

IF  (hrt.EO.MB)  nn=0 

585 

rtn=rtrt+ 1 

586 

1000 

NSHIFI=NSH1FI+NE2B 

587 

IF  (NDEG.GT.O)  GO  'IQ  730 

588 

URITE  (33,1010) 

589 

STOP 

590 

730 

ANQRM=<ANUkn/NDEu;Al.E-S 

591 

c 

592 

RETURN 

593 

1002 

FORHAT  (4F10.0) 

594 

1 004 

FORHAT  ( 5  15 , GTlu . 0 ) 

b  - 1 1 
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1010  FORMAT  ( 5 1H0STRUCTURE  WITH  NO  DEGREES  OF  FREEDOM  CHECK  DATA  ) 
2000  FORMAT  (///  10H  STRUCTURE , 13X ,7HELEMENT , 4X , 4HL0AD , 4X , 

1  11HMULIIPLIERS,/  10H  LOAD  CASE , 12X, 1HA,9X, 1HB, 9X , 1HC ,9X , 1HD , /  IX) 
2002  FORMAT  ( I6,7X,4F10.3) 

2004  FORMAT  (45H1S  IEP-BY-SIEP  SOLUTION 


37HC  0  N  T  R  0 


INFORMATION,/// 


601 

2 

5X, 

35HNUMBER  OF  TIME  VARYING  FUNCTIONS 

=  f 

15 

// 

602 

3 

5X , 

35HGR0UND  MOTION  INDICATOR 

=  f 

15 

/ 

603 

4 

8X , 

10HEQ.0,  NONE,  / 

604 

5 

8X , 

29HGT.0,  READ  ACCELERATION  INPUT,  // 

605 

6 

5X , 

35HNUMBER  OF  ARRIVAL  TIMES 

=  f 

15 

/ 

606 

7 

8X , 

26HEQ.0,  ALL  FUNCTIONS  ARRIVE,  / 

607 

8 

8X, 

18H  A I  TIME  ZERO,  // 

608 

9 

5X , 

35HNUMBER  OF  SOLUTION  TIME  STEPS 

=  t 

15 

// 

608 

A 

5X , 

35H0UTPUT  (PRINI)  INTERVAL 

~  t 

15 

// 

610 

B 

5X , 

35HS0LUT ION  TIME  INCREMENT 

~  f 

E14.4 

// 

611 

C 

5X , 

30HMASS-  PROPORTIONAL  DAMPING,  / 

612 

D 

5X , 

35HC0EFF IC IENT  (ALPHA) 

=  f 

E14.4 

// 

613 

E 

5X, 

30HST IFFNESS-PROPQRT IONAL  DAMPING,  / 

614 

F 

5X, 

35HC0EFF IC IENT  (BETA) 

=  9 

E14.4 

///  IX) 

615 

3000  FORMAT  (27H0AAA  ERROR  ZERO  TIME  STEP,  / 

IX) 

GIG 
617  C 
G18  C 
610  Ci 
620 
621 


623 

624 

625 

626 

627 

628 
620 

630  c 

631 

632 

633 

634  c 

635 

636 

637  c 

638 
630 

640 

641 

642 

643 

644 

645 

646 

647 

648  C 


SUBROUTINE  BOUND 
IMPLICIT  REALA8(A-H,Q-Z) 

COMMON  A(l) 

COMMON  /ELPAR/  NPAR ( 14 ) ,NUMNP ,MBAND, NELTYP,N1 ,N2,N3 ,N4 , N5 , MTOT , NEQ 
COMMON  /JUNK/  LT , LH , L , IPAD , S IG ( 20 ) , IF  ILL ( 386 ) 

COMMON  /EXTRA/  MODEX, NI8,N10SV, NT10, IF ILL2 C 12) 

IF  (NPAR(l).EQ.O)  GO  TO  500 

CALL  CLAMP  <NFAR<2) ,A(N1 > ,A(N2> ,A(N3) ,A(N4) ,NUMNP,MBAND) 

REIURN 

500  continue 
--  WRITE  (33,2002) 

NUME=NPAR ( 2 ) 

DO  800  Mrt=l,NUME 

CALL  STRSC  (A(N1 ) ,A(N3) ,NEQ,0) 

WRITE  (33,2001) 

DO  800  L=LT , LH 

CALL  STRSC  ( A ( N1 ) , A ( N3 ) , NEQ, 1 ) 

WRITE  (33,3002)  MM , L , ( S IG ( I) , 1= 1 , 2 )  (printing  suppressed 

IF(NlOSV.EQ.l) 

AWRITE  ( NT1 0 )  MM , L , S IG ( 1 ) , S IG ( 2 ) 

800  CONTINUE 
RETURN 

2001  FORMAT  </) 

2002  FORMAT  (48H1B  OUNDARY  ELEMENT  FORCES/, 

1  14H  h  0  N  E  N  T  S,  //  8H  ELEMENT ,3X , 4HL0AD , 14X , 5HF0RCE , 

2  9X , 6HM0MENT ,  /  8H  NUMBER, 3X.4HCASE,  //  IX) 

3002  FORMAT  < 18 , 17 , 4X , 2E15 . 5  ) 

END 


649 

650 

651 

652 

653 

654 

655 

656 

657 

658 

659 

660 
661 
662 

663 

664 

665 

666 

667 

668 

669 

670 

671 

672 

673 

674 

675 

676 

677 

678 

679 

680 
681 
682 

683 

684 

685 

686 

687 

688 

689 

690 

691 

692 

693 

694 

695 

696 

697 

698 

699 

700 

701 

702 


C 

c&= 


SUBROUTINE  CALBAN  ( nBAND,  ND  IF,  LN,Xh,  S,  P,ND,NDM,NS ) 

IMPLICIT  REALA8(A-H,Q-Z) 

CALLED  BY:  RUSS , TEAn , PLNAX , Bk ICK8 , TPLATE , CLAMP , ELST3D , P IPEK 

-CALCULATES  BAND  WIDTH  AnD  WRITES  STIEENESS  MATRIX  ON  TAPE  2 
DIMENSION  LM(1> ,Xm( 1) , S ( NDM , NDM ) , P ( NDM , 4 ) 

COMMON  /EXTRA/  MODEX , NT8 ,  IE  ILL ( 1 4 ) 

M  IN= 100000 
MAX  =  0 

DO  300  L- 1 ,ND 

IE  (LHCL> -EQ.O)  66  Tu  800 

IE  (LM(L) .6T.MAX)  mAX=LM(L) 

IE  (LM(L) .LI. MIN)  MIN=LM(L> 

CONTINUE 

NDIE=MAX-MIN+1 

IF  (NBIF.6T.M6AND)  nBAND=NDIF 
IF  ( MODEX .  EQ .  1 )  GO  TO  810 


300 


LRD=NDA(ND*i,/2+5AND 

UR  ITE ( 2 )  LRD, ND,  (LM(  I) ,  1  =  l  ,ND ) ,  ( ( S<  I,  J) ,  J  =  I ,ND ) ,  1  =  1  f  ND )  f 
1  ( (P<  1,3) ,  1=1, NO) f 3  =  1,4) , (XM( I) , 1  =  1, NB> 

RETURN 

810  WRITE  ill  ND,NS, (Ln(I; ,  1=1, ND) 

RETURN 


END 


C 

C 

C&===: 


20 

30 


SUBROUTINE  CLAMP  ( NUMEL , ID , X , Y , Z , NUMNP , MBAND ) 

IMPLICIT  REALA8 ( A-H ,  Q-Z ) 

C0MMQN/En/LM(24) ,  ND , NS , S ( 24 , 24 ) , P ( 24 , 4 ) ,Xh<24> , SAC  12, 24, 
1  IE  ILL1  ( 3048 ) 

DIMENSION  X(1),Y(1),Z(1),  ID (NUMNP, 1 ) 

COMMON  /  JUNK  /  ft ( 6 ) ,RH< 4) , IF ILL2 1  410 ) 

COMMON  /EXTRA/  MODE* , NT8 ,  IE ILL3 ( 1 4 ) 

URITE  (33,2000)  NUMEL 
NS  =  2 
ND  =  6 

READ ( 5 , 1005 )  Rm 
URITE  (33,2005;  RM 

IE ( MODE/ . Eu  .  1 ; 

AWRITE  ( NT8 )  RM 
DO  30  N 1  =  1 ,  ND 
XM(NI)  =  0.0 
DO  20  NJ=1,ND 
S( N I , N J ) =0 . 0 
CONTINUE 
DO  50  N K  —  1  , N S 
DO  40  NL= 1 , ND 


'l'T(  12,4)  , 


a 


S| 


ft 


,  "* 
.V 


■3 


B-13 


r."-1."-11'.1^.".1." .'  '-1  T1.11  *; 


595 

596 

597 

598 

599 

600 
601 


1010  FORMAT  (51H0STRUCTURE  WITH  HQ  DEGREES  OF  FREEDOM  CHECK  DATA 
2000  FORMAT  (7/7  10H  STRUCTURE t 1 3X , 7HELEMENI, 4X, 4HLQAD, 4X, 

1  11HMULT1PLIERS,/  10H  LOAD  CASE, 12X, 1HA, 9X, 1HB , 9X , 1HC, 9X ,  1HD, / 
2002  FORMAT  (  16 , 7X , 4F10 . 3 ) 

2004  FORMAT  (45H1S  TEP-fcY-SIEP  SOLUTION 

1  37HC  ONTROL  INFORMATION,/// 

2  5X ,  35HNUM6ER  OF  TIME  VARrING  FUNCTIONS  =  ,  15  // 

°  *v  ^ur.tnimti  NflTTflN  INDICATOR  =,  15  / 


IX) 


703 

40 

SAINK,NL)  =  0.0 

704 

DO  50  N  1  =  1 , 4 

705 

TT ( NK , N I )  =0.0 

706 

50 

CONIINUE 

707 

N£=0 

708 

WRITE  (33,2007) 

709 

210 

KG=0 

710 

MARK=0 

711 

200 

READ  (5,1000)  NP,Nl,NJ, 

NK,NL,KD,KR,KN 

712 

IE  (TRACE. EQ.O. )  TRACE= 

1 .0E+10 

713 

It  (KG.GT.O/  GO  TO  550 

714 

KG=KN 

715 

IE(MODEX.EU.l)  GO  TO  530 

716 

IF(NJ. £0.0)60  TO  250 

717 

X1=X( N J ) ~X( N I ) 

718 

Y1=Y(NJ)-I(NI> 

719 

Z1=Z(NJ)~Z(NI) 

720 

X2  =  X  < NL )  -X ( NK ) 

721 

Y2=Y ( NL ) - I ( NK ) 

722 

Z2=Z(NL)-Z(NK) 

723 

T1=Y1AZ2~Y2AZ1 

724 

T2=ZlAX2-Z2AXl 

725 

T3=X1aY2-X2AY 1 

726 

GO  TO  260 

727 

250 

T1=X(NI)-X(NP) 

728 

T2=Y(NI)-Y (NP) 

729 

T3=Z(NI)-Z(NP) 

730 

260 

XL  =  TlATWT2AT2tI3AI3 

731 

XL=DSQRT (  aL  ) 

732 

IFUL.GT.  1  .OE-6)  GO  TO 

270 

733 

WRITE  (33,3000) 

734 

3000 

FORMAT  ( 32H0AAA  ERROR 

ZERO  ELEMENT 

735 

STOP 

736 

270 

CONTINUE 

737 

T 1=T 1 / XL 

738 

T2=T2/XL 

739 

I3=T3/XL 

740 

IF  (KD.Eu.O)  60  10  300 

741 

SA ( 1 , 1 ) =T IATRACE 

742 

SA( 1 ,2>=T2ATRACE 

743 

SA ( 1 , 3 ) =T3ATR ACE 

744 

S(I,l)=riATlATRACE 

745 

S(1,2)=T1AT2ATRACE 

746 

S(1,3)=T1AT3ATRACE 

747 

S(2,2)=T2AT2ATRACE 

748 

S(2,3)=T2*T3ATRACE 

749 

S(3,3)=T3aT3ATRACE 

750 

PP=IRACEASD 

751 

R  < 1 ) =T 1 APP 

752 

R(2)=T2APP 

753 

R ( 3 ) =  T3APP 

754 

GO  TO  350 

755 

300 

DO  310  1=1,3 

756 

R ( I ) =0 . 0 

/  IX) 


b- 1 4 


7*4 


*  <d  ■  A 


V  WVi 


75? 

753 

759 

7b0 

761 

762 

763 

764 

765 

766 

767 

768 

769 

770 

771 

772 

773 

774 

775 

776 

777 

778 

779 

780 

781 
762 

783 

784 

785 

786 

787 
738 

789 

790 

791 

792 

793 

794 

795 

796 

797 

798 

799 

800 
801 
802 

803 

804 

805 

806 

807 

808 

809 

810 


' ' '  - 


j 


SA  ( 1 , I ) =0 . 0 
DO  310  3=1,3 
310  S(I,J)=0.0 
350  IE  (KR.EQ.O )  GO  10  400 
SA(2,5)=T2ATRACE 
SA(2,4)=T1ATRACE 
SA(2,6)=T3ATfiACE 
S(4,4)=T1AT1ATRA6E 
S(4,5)=T1AT2ATRACE 
S(4,6)=TlAT3ATRACE 
3(5,5) =T2AT2ATRACE 
3(5,6)=T2aT3ATRAC£ 

S(6,6)=T3AT3ATRAC£ 

pp=traceasr 

R ( 4 ) =T1 APR 
R (5 ) =T2APP 
R ( 6) =T3APP 
GO  10  450 
400  DO  410  1  =  4, b 
R ( I )  =0 . 0 
SA(2, 1 >  =0 . 0 
DO  410  3=1,6 
410  S ( 1 , 3) =0 .0 
450  DO  500  1=1, ND 
DO  500  3=1, HD 
500  S(3,  I)=S(  I, 3) 

DO  520  1=1, HD 
DO  520  3=1,4 
520  P  ( 1 , 3  )  =  R  (  I)ARnU) 

530  NN  =  NP 
NH  I=N  I 
H  N  3  =  N  3 
NNK=HK 
HHL=NL 
HKD=KD 
NKR=KR 
SSD=SD 
SbK=SR 
TTR=TRACE 
GO  TO  560 
550  HARK=1 
555  NN=NN+K6 
NH I=NN  I  +  K6 
560  KEL=HE+ 1 

WRITE  (33,2010)  KEl , NH , nN  I , NN3 , NNK , NNL , NKD , NKR , KN , SSD , SSk , TTK 
NE  =  NEM 

IF (HODEX . EQ . 1 ) 

AWR ITE ( NT8 )  HE  ,  HH , HN  I , HN3 , NNK , NNL , NKD , NKR , SSD , SSR , TTR 
DO  600  1  =  1  , ND 
600  LM( I )  =  ID ( NN , I ) 

NDrt=24 

CALL  CALBAH  ( n&AND , ND  IF , LH, XH ,S , P ,ND ,NDH , NS ) 

IF (HODEX . EQ . 1 )  GO  TO  o50 

UR  ITE  (1)  ND,NS,^Lrt(L),L=l,ND>,((SA(L,K),L=i,NS),K  =  l,NLw, 
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811  1  dTT(L,K)  ,L=1,NS),K=1,4) 

812  650  CONTINUE 

813  IF  (NE.EQ.NUMEL)  RETURN 

814  IF  (NN.LT.NP)  GO  TO  555 

815  IF  (HARK.EQ.l)  GO  TO  210 

816  GO  IQ  200 

317  1000  FORMAT  ( 3 15, 3F10 . 0 ) 

818  1005  EQRMAT  (4F10.0) 

819  2000  FORMAT  (34H1B  0  U  N  D  A  R  Y  ELEMENTS,/// 

820  1  27H  ELEMENT  TYPE  =  7,  / 

821  2  21H  NUMBER  OF  ELEMENTS  =,I6  ///IX) 

822  2005  FORMAT  C 30H  ELEMENT  LOAD  CASE  MULTIPLIERS,  //  8X ,7HCASE ( A >, 8X , 

823  1  7HCASE(B) ,8X,7HCASE(C) ,8X,7HCASE(D) ,/  4F15.4  ///  IX) 

824  2007  FORMAT  (53H  ELEMENT  NODE  NODES  DEFINING  CONSTRAINT  DIRECTION 

825  1  3X,38HC0DE  CODE  GENERATION  SPEC  IF IED , 6X , 

826  2  22HSPEC  IF  IED  SPRING,  / 

827  3  53H  NUMBER  (N>  (NI)  (NJ)  (NK)  (NL) 

828  4  3X , 33H  KD  KR  CODE  (KN)  D ISPLACEMENT , 6X , 

829  5  22H  ROTATION  RATE,  /  IX) 

830  2010  FORMAT  ( IX ,2< 2X ,  15 ) , 2X , 4< 4X , 15) ,2(2X, 15) ,7X , 15 ,2E15 . 4 , E12 . 4 ) 

831  END 

832  C 

333  Ci==================================================================== 

834  SUBROUTINE  CR0SS2  (A,B,C,IERR) 

835  C 

836  C  CALLED  BY  :  INP21 

837  C 

838  IMPLICIT  REALA8(A-H,Q-Z) 

839  C 

840  C  THIS  ROUTINE  FORMS  THE  VECTOR  PRODUCT  C  =  AAB  WHERE  AC A 

841  C  IS  NORMALIZED  TO  UNIT  LENGTH 

842  C 

843  DIMENSION  A ( 3 ) , B ( 3 ) , C < 3 ) 

844  C 


845 

X  =  A  (  2  )  A  B  (  3  )  -  A  (  3  )  A 

6(2) 

846 

Y  =  A ( 3 )  A  B ( 1 )  -  A(l)  A 

B  ( 3 ) 

847 

Z  =  A(l)  A  B ( 2 )  -  A ( 2 )  A 

Bd  ) 

848 

XLN  =BSQRT(XaX+YAY+ZAZ) 

849 

IERR  =  1 

850 

IF(XLN. LE. 1 . 0E-08 )  RETURN 

851 

XLN  =  1.0  /XLN 

852 

C ( 3)  =  Z  A  XLN 

853 

C  (  2 )  =  Y  A  XLN 

854 

Cd)  =  X  A  XLN 

855 

IERR  =  0 

856 

RETURN 

857 

END 

859  SUBROUTINE  DER3DS  ( NEL , XX , B , DET , R ,S , T , N0D9 ,H, P , IELD ,  IELX > 

860  C 

861  C  CALLED  B !  :  IHDFE 

862  C 

863 

864  C 


IMPLICIT  REALAti  (  A-H  ,  0-Z  ) 


DIMENSION  XX ( 3 ,  i )  ,  B '.  B ,  1 ;  , NOBS ( 1 ) , H (1 ) , P ( 3 f  1 ) 
DIMENSION  a  J  ( 3 , 3  » ,  X  J I  ( 3 , 3 ) 


FIND  INTERPOLATION  FUNCTIONS  AND  THEIR  DERIVATIVES 
EVALUATE  JACOBIAN  nATRIX  AT  POINT  (R,Sf T) 

COMPUTE  DETERMINANT  OF  JACOBIAN  MATRIX  AT  POINT  (R,S,T) 


CALL  FNCT  ( R , S , T , H , P , NODS f XJ , DET , XX, IELD , IELX , NEL ) 


COMPUTE  INVERSE  OF  JACOBIAN  MATRIX 


DUM=1 
XJId 
X  J  I  (2 
X  J  I  (  3 
X  J  I  ( 1 
XJ  1(2 
XJ  1(3 
X  J  I  ( 1 
X  J  I  ( 2 
X  J  I  ( 3 


.  O/DET 
, 1 >  =DUMA ( 

, 1 ) =DUMA(  • 
,  1 ) =  DUHA ( 

, 2 ) =  DUMA ( ■ 
, 2 ) =  DUMA ( 

, 2 ) =  UUmA ( 

,  3) -DUMA ( 

, 3  >  =DUMA  ( 
,3)=DUmA( 


X  J  (.  2 , 
-XJ (2, 


•X  J  ( 1 , 
X  J  ( 1 , 
-X  J  (  1 , 
XJd, 
■XJ(1, 
X  J  ( 1 , 


2 ) AX J ( 3  >  3 ) 
1 ) AX J ( 3,3) 

1 ) AXJ (3,2) 

2)  AX J (3,3) 
1 ) AX J (3,3) 

1 ) AXJ(3r2) 

2 )  AX J (2,3) 
1 ) AXJ (2,3) 
I ) AXJ (2,2) 


-  XJ ( 2, 
+  X  J  ( 2 , 

-  XJ  ( 2 , 
+  X  J  ( 1 , 

-  XJd, 
+  XJd, 

-  XJ(1 
+  XJd, 

-  XJd, 


3) AXJ(3,2) ) 

3 ) AXJ (3,1)) 

2)  AXJ (3,1 ) ) 

3 )  AXJ (3,2)  ) 
3) AXJ (3,1)) 

2  >  AXJ (3,1) ) 

, 3 ) AXJ (2,2) ) 
3) AXJ (2,1)) 

2 )  AXJ (2,1)) 


EVALUATE  B  MATRIX  IN  GLOBAL  (X,Y,Z>  COORDINATES 


DO  130  K  =  1 ,  IELD 
K  2  =  K  A  3 

DO  115  L  =  1 , 3 

B ( L , K2-2 )  =  0.0 
B  <  L ,  K  2  - 1 )  =  0.0 
115  B <  L , K 2  )  -  0.0 

DIRECT  STRAINS  d=EXX,  2  =  EY  Y ,  3=EZZ! 

DO  120  1=1,3 


.  .*  -- 


B( 1 ,K2-2)  =  B(l,K2-2>  +  XJI(1,I)A  P<I,K> 
B(2,K2-1>  =  B(2,K2-1)  +  XJI(2,I)A  P ( I , K ) 
B(3,K2  )  =  6(3, K2  )  +  X3I(3,I)A  P <  I ,K ) 

SHEAR  STRAINS  U  =  EXY,  5=EYZ,  6=EZX) 


B ( 4 , K2-2 ) 
B(  4  f  K 2 - 1 ) 
B(5,K2-1> 
6(5, K2  ) 
B(6,K2-2> 
B(G,K2  ) 


RETURN 


B( 2.K2-1 ) 
B(l,K2-2) 
B  ( 3 ,  K  2  ) 

B ( 2 ,  K2- 1 ) 
B ( 3 , K2  ) 
B( 1 ,K2-2> 


SUBROUTINE  ELT YPE ( HT YPE ) 


ifiPLICIT  P.P 3L ^ 2 ' ~H  2_Z) 

CALLED  BY:  MAIN,SIRESS 

GO  TO  (1,2, 3, 4, 5, 6, 7, 8, 9, 10, 11, 12), MI YPE 

THREE  DIMENSIONAL  TRUSS  ELEMENTS 


CONTINUE 
CALL  TRUSS 
GO  TO  900 

THREE  DIMENSIONAL  BEAM  ELEMENTS 

CONTINUE 
CALL  BEAM 
GO  TO  900 

PLANE  STRESS  ELEnENIS 

CONTINUE 
CALL  PLANE 
GO  TO  900 

AXISYMMETRIC  SOLID  ELEnENTS 

CONTINUE 
CALL  PLANE 
GO  TO  900 

THREE  DIMENSIONAL  SOLID  ELEMENTS 

CONTINUE 
CALL  THREED 


/.  f,  r.  -T.  <r.  V  J’.y',  A  /,  ’/.v;  *.v  V.VV  .V  ' 


VV  > 

%  - 


GO  TO  OOO 


073 
074  C 


975 

C 

PLATE  BEnDING  ELEMENT 

976 

C 

977 

6 

CONTINUE 

978 

c 

6 

CALL  SHELL 

979 

GO  TO  900 

980 

c 

981 

c 

982 

7 

CALL  BOUND 

983 

GO  TO  900 

984 

c 

985 

C 

THICK  SHELL  ELLmCnTS 

986 

c 

987 

8 

CALL  S0L21 

988 

GO  TO  900 

989 

c 

990 

9 

UkITE  (23,100)  HTYPE 

991 

GO  TO  900 

992 

c 

993 

10 

WRITE  (33,100)  mTYPE 

994 

GO  TO  900 

995 

c 

996 

11 

WkllE  (33,100)  MTYPE 

997 

GO  TO  900 

098  C 

000  C  STRAIGHT  OR  CURVED  FIRE  ELEMENTS 
1000  C 


1001  12  CONTINUE 

1002  C  12  CALL  RIFE 

1003  C 

1004  000  RETURN 

1005  C 

1006  100  FORMAT  ( ' OELEmENT  '  , 14 , '  IS  NOT  IMPLEMENTED  YET') 

1007  END 

1009  SUBROUTINE  ERROR ( N ) 

1010  WRITE  (33,2000)  N 

1011  2000  FORMAT  (//  20H  STORAGE  EXCEEDED  BY  16) 

1012  STOP 


t- 


1013 

1014  LI-- 

1015 

1016 

1017 

1018 

1019 

1020 
1021 
1022 

1023 

1024 

1025 


1026  C 


END 


SUBROUT  INE  FAC  ERR  ( NEL , KD  IS , KXYZ , XX , N0D9 , H , P , RL , NF ACE , LT , RUA , KLS 


CALLED  BI  :  THDFE 
CALLS  )  Fact 


implicit  realaGi a-h,o_Z) 


THIS  ROUTINE  COMPUTES  NODE  FORCES  DUE  TO  APPLIED  ELEMENT  FACE 
PRESSURE  DISTRIBUTIONS 


B  - 1 9 


'jy.  » ■'*« 1 1 v ^  «**.  v « ”* « •s' *  *'.  ^, **.  ‘".a  “r_  ■V-V*'*.  »*. •* .  •*«  *■’« *’'»•  .  -*■  v ^ - ."""‘s v *s> " 


1027  DIMENSION  XX ( 3 , 1 ) , NODS (1 ) , H ( 1 ) , P ( 3 f 1 ) , PL ( 1 ) , PUA ( I ) 

1028  DIMENSION  X J ( 3 , 3 ) , ETA ( 3 ) ,KFACE ( 6 ,8 ) , KCRD ( 6 ) , FOAL ( 6 ) , Irkruj, , 

1029  1  FR ( 8 > ,N0DES<8> ,  IPR4 ( 4 ) 

1030  COMMON  /GAUSS/  XK ( 4 , 4 ) , UGT (4,4) 

1031  C 

1032  DATA  KEACE  /  1,  2,  1,  4,  1,  5, 

1033  1  4,  3,  5,  8,  2,  6, 


1034 

n 

8, 

7,  6,  7,  3, 

7, 

1035 

3 

C.' 

J  J 

6 ,  2  ,  3  ,  4  , 

8, 

1036 

4 

12, 

10,  17,  20, 

8, 

13, 

1037 

C 

u 

20, 

19,  13,  15, 

10, 

14, 

1038 

6 

Id  | 

14,  16,  19, 

11, 

15, 

1039 

7 

17, 

ia,  9,  li, 

12, 

16/ 

1040  C 

1041 

DATA 

KCRD 

/  1 

1  T  T 

,  l  ,  -  ,  “ 

,  3 

,  3/ 

1042 

DATA 

FOAL 

/  1. 

, ~ 1 • ,  1«,~1» 

,  1. 

1043 

DATA 

IPRM 

/  2 

,  3,  1/ 

1044 

DATA 

IPR4 

/  2, 

3,  4,  1/ 

1045  C 

1046  C  DETERMINE  THE  ELEMENT  NODES  CONTRIBUTING  TO  FORCE  CALCULATIONS 

1047  C  ON  THIS  FACE 

1048  C 

1049  DO  2  1-1,4 

1050  NODES (  I  )  =  KFACE(NFACE,  I) 

1051  NODES (  1  +  4  )  =  0 

1052  2  CONTINUE 

1053  C 

1054  IF (KD  IS . LT . 9 )  GO  TO  9 

1055  C 

1056  NN9  =  KDIS-8 

1057  C 

1058  DO  8  K  =  5 , 8 

1059  DO  4  1=1, NN9 

1060  C 

1061  J  =  I 

1062  IF (KFACE (NFACE,K ) . EQ . N0D9  <  I)  )  GO  TO  6 

1063  C 

1064  4  CONTINUE 

1065  GO  TO  8 

1066  C 

1067  6  NODES ( K )  =  J 

1068  8  CONTINUE 

10b9  C 

1070  9  CONTINUE 

1071  C 

1072  C  SET  UP  THE  PRESSURE  VECIOR  FOR  THE  FOUR  FACE  CORNER  NODES 

1073  C 

1074  C  1.  ADJUST  THE  SIGN  OF  THE  PRESSURES  SO  THAT  POSITIVE 

1075  C  PRESSURE  ALWAYS  COMPRESSES  THE  ELEMENT 

1076  C 

1077  FACT  =  -FVAL(NFACE) 

1078  C 

1079  GO  TO  ( 10,30)  ,  LT 

1080  C 


B-20 


■- 


s 

! 

A 


t 


» 

E 


1081  C  2.  DISTRIBUTED  PRESSURE  GIVEN  AT  THE  CORNER  NODES 

1082  C 

1083  10  DO  25  K=lfa 

1084  C 

1085 
1036  C 

1087 

1088  C 

1089 

1090 

1091  C 

1092  15 

1093 

1094 

1095  C 

1096  25 

1097 

1098  C 

1099  C 

1100  C 

1101  30  GAnhA  =  PUAQM  FACT 

1102  C 

1103  XLN  =  0.0 

1104  DO  35  K  =  1 , 3 

1105  ETA(K)  =  P U A ( K 1 4 ,>  -  PUA ( K  + 1 ) 

1106  35  XLN  =  XLN  +  ETA(K)AA2 

1107  XLN  =DSQkI (XLN) 

1108  C 

1109  IF (XLN . GT . 1 . 0E-6 )  GO  TO  40 

1110  C 

1111  WRITE  (33,3000)  KLS,NEL 

1112  3000  FORMAT  (31H0ERR0RAAA  PRESSURE  LOAD  SET  < , 13, 15H)  FOR  ELEMENT  ( 

1113  1  1 5 , 4  3  H )  HAS  UNDEFINED  HYDROSTATIC  SURFACE  NORMAL.,  /  IX) 

1114  STOP 

1115  C 

1116  40  DO  45  K=l,3 

1117  45  ETA ( K )  =  ETA ( K / /  xLN 

1118  C 

1119  DO  70  N=  1 ,3 

1120  C 

1131  IF ( NODES ( rt ) .  EQ . 0 )  GO  Tu  70 

1122  C 

1123  XLN  -  0.0 

1124  NuB  -  NODEStNJ 

1125  IF ( N . 6T . 4 ;  NOD  -  NOD  +  8 

1126  C 

1127  DO  50  1=1,3 

1128  50  XLN  =  XLN  +  <  XX  i  I , NOD /  -  PWA(I+1))A  ETA (  I ) 

1129  C 

1130  PR(N)  -  x L N A  GAMMA 

1131  C 

1132  IF ( XLN . LT . 0 . 0 ;  PR(N)  =  0.0 
1  133  C 

1134  70  CONTINUE 


IF ( NODES (K ) . EQ .0 ;  GO  TO  25 

IF (K.GT. 4 )  GO  TO  15 

PR ( K )  =  PUA  <  K )  A  FACT 
GO  TO  25 

-  -  i,-4 
L  =  IPR4UJ 

PktK)  =  <PUAU)  +  PUA(Li)  A  0.5  A  FACT 

CONTINUE 
GO  TO  75 

3.  ELEMENT  FACE  EXPOSED  TO  HYDROSTATIC  PRESSURE 


t<  -  2 1 


A 

rj 

rl 

A 


a 


:1 


V.  V. -r.  /.  /, 


i  -*  s  J 


J-V.V.V2* 


75  CONTINUE 

SEI  UP  VARIABLES  tuk  l'HE  SURFACE  INIEGRAT  ION 

ML  =  KCRDINFACE) 
mm  =  IPRm(ML) 

MN  =  IPRH(mn) 


SURFACE  INTEGRA!  lu><  LuuP 


E  T  A  (  M  L  )  -  FVAUnFACE; 


DO  300  LX=1,3 
ETA(MM)  =  UULx.,3; 

DO  300  L Y - 1  ,3 

ETA(MN)  =  All  (  L  Y  ,  3  i 

UT  =  UGT t  Lx. ,  3  )  A  U  G  T  (  L  f ,  3  ) 

EVALUATE  THE  INIERFOLAI ION  FUNCTIONS  AND  JACOBIAN  MATRIX 

CALL  FNCT  CETAi  1  ;  ,ET«(2)  ,ETftl3)  ,H  ,P  ,NOM  ,XJ  ,DE1  ,X'A  ,HB  IS ,  HX I Z ,  NEL ; 

COMPUTE  THE  D IREL  T  ION  COSINES  OF  THE  UNIT  SURFACE  NORMAL  VECTOR 
AT  THIS  SAhPLE  POINT 

A 1  =  X J ( MM , 2 ) A  X J ( MN , 3 ) -  XJ I  MM , 3 ) A  XJ(MN,2) 

A2  =  X J ( MM , 3 )  A  X J ( MN  ,  1 )  -  X J (MM, 1 ) A  XJ(MN,3) 

A3  =  X J  (  MM ,  1 ) A  XJ ( MN  ,  2 ) -  X J ( MM , 2 ) A  XJ(MN,1) 

AA  =DSQRT(A1AA2  t  A2AA2  +  A3AA2) 

IFIAA.GT. 1 .OE-8)  GO  TO  100 


URITE  (33,3010)  NFACE , NEL 

3010  FORMAT  ( 38H0ERR0RAAA  UNDEFINED  NORMAL  IN  FACE  (,I1,5H)  FOR, 
1  10H  ELEMENT  (  ,  15, 2H)  .  ,  /  IX) 

STOP 


100  FACT  =  l.G/AA 
A1  =  A1A  FACT 
A2  =  A2A  FACT 
A3  =  A3A  FACT 

COMPUTE  IHE  FIRST  FUNDAMENTAL  FORM  (AREA  DIFFERENTIAL; 

AA  =  0.0 

BB  =  0.0 

CC  =  0.0 

DO  120  1=1,3 

AA  =  AA  t  X  J ( MM ,  I ) A  A  2 

C  C  =  C  C  ;  X  J  (  M  N  ,  I  ;  A  A 


J-  "j*  " J'  V  f  .'v"  'J* 


v  v».v  v;,-. '  s  - 


- w-  \^v  rji  r> i 


•  .v  _\ 


1189 

120 

BB  =  BB  +  XJ(nn,DA  XJ (n8,l) 

1190 

C  =DSQRI ( AAACC  -  BBAA2) 

1191 

C 

1192 

C 

INTERPOLATE  FOR  THE  PRESSURE  AT  THIS 

1193 

C 

1194 

PRESS  =  0.0 

1195 

C 

1196 

DO  130  K  =  1 , 8 

1 19? 

C 

1198 

IF ( NODES (K).EO.Oj  Cu  TO  130 

1199 

c 

1200 

NOD  -  rtODESvi'.  t 

1201 

IF ( K . GT . 4 )  NOD  =  nOD  +  8 

1202 

c 

1203 

PRESS  =  PRESS  t  h  <  nCD  >  A  Pk(K) 

1204 

130 

CONTINUE 

1205 

c 

1206 

FACT  -  UT  A  CA  P  k  E  u  b 

1207 

c 

1208 

c 

ASSEMBLE  THE  NODE  FORCE  CONTRIBUTION 

1209 

c 

1210 

DO  160  L=  1 , 8 

1211 

c 

1212 

IE(ni)D£S(L^  .EO.vj  60  TO  160 

1213 

c 

1214 

IFlL.GT.4)  60  TO  140 

1215 

c 

1216 

c 

1.  CORNER  NUDES 

121? 

c 

1218 

N  =  NODES ( L  > 

1219 

K  -  3  X  N 

1220 

60  TO  150 

1221 

c 

]_  O  O  O 

c 

2.  uIDE  NUDES 

1223 

c 

1224 

UO 

J  =  NODES ( L ) 

1225 

N  =  J  t  o 

1 22b 

K  -  3  A  N  0  D  9  (  J  / 

1227 

c 

1223 

150 

Gu  -  FACT*  h  >,  n  / 

1229 

c 

1230 

P  L ( K -  2 )  -  P  L  U;  -  2  >  *  Oka  A 1 

1231 

PL(K-1>  =  PLvk-1/  *  uOX  A 2 

1232 

PL ( K  )  =  PL(K  )  t  QUA  A3 

1233 

lo0 

continue 

1234 

c 

1235 

3k0 

CONTINUE 

1236 

c 

1237 

RETURN 

1233 

END 

1  999 

r: 

i  =  =  = 

1240 
2241  C 
1242  C 


SUBROUTINE  ENLI  <R ,  6  f  T  ,  h ,  P  ,  NODS  ,  X I ,  BET  ,  XX ,  IELD ,  IELX  ,NEE  ) 

called  b i  :  e a c e p k 


V"-  «■ 


V  %  V  , 

i\  »'■.  **\ 


fcK&VK»  KVCWO 


IMPLICIT  k£ALA8(A-H,0-Z) 


1243  C 

1244 

1245  C 

1246  C 

1247  C  . 

1248  C  . 

1249  C  .  PROGRAM 

1250  C  . 

1251  C  .  IQ  FIND  INTERPOLATION  FUNCTIONS  (  H  ) 

1252  C  .  AND  DERIVATIVES  (  P  )  CORRESPONDING  TO  THE  NODAL 

1253  C  .  POINTS  OF  A  CURVILINEAR  ISOPARAMETRIC  HEXAHEDRON 

1254  C  .  OR  SUBPARAMETRIC  HEXAHEDRON  (8  TG  21  NODES) 

1255  C  . 

1256  C  .  TO  FIND  JACOBIAN  (  XJ  )  AND  ITS  DETERMINANT  (  DEI  ) 

1257  C  . 

1258  C  . 

1259  C 

1260  C 

1261  DIMENSION  H < 1 ) , P C 3 , 1 ) , N0D9 (1 ) ,  IPERM ( 8 ) , X J ( 3, 3 ) , XX ( 3 , 1 ) 

1262  C 

1263  DATA  IPERM  /  2 , 3 F 4 , 1 , 6 , 7 , 8 , 5  / 

1264  C 

1265  IEL  =  IELD 

1266  NND9=  IELD-8 

1267  C 

1268  RP= 1 . 0  *  R 

1269  SP=1.0  +  S 

1270  IP=1 . 0  *  T 

1271  RM= 1 . 0  -  R 

1272  SM= 1 . 0  -  S 

1273  IM=1 .0  -  T 

1274  RR= 1 . 0  -  RAR 

1275  SS= 1 . 0  -  SAS 

1276  T T  =  1 . 0  -  TAT 

1277  C 

1278  C 

1279  C  INTERPOLATION  FUNCTIONS  AND  THEIR  DERIVATIVES 

1280  C 

1281  C 

1282  C  8-NODE  BRICK 

1283  C 

1284  H(1)=0.125aRPASPaTP 

1285  H ( 2 )  =0 . 1 25ARMASPATP 

1286  H(3)=0.125ARMAShaTP 

1287  H(4)=0.125aRPASMATP 

1288  H(5)=0.125aRPASPATM 

1289  H(6)=0. 125ARMASPATM 

1290  H ( 7 ) =0 . 125ARMASMATM 

1291  H(8)=0 .125ARPASMATM 

1292  C 

1293  P ( 1 , 1 ) -0 . 1 25ASPAIP 

1294  P(1,2)=-P(1,1j 

1295  P(l,3)=-0.125ASnATP 

1296  P<l,4)=-Ki,3; 


B-24 


fe 

1 

S 

$ 

v‘ 

s 

1297 

P<  1 ,5)  =0 . 125aSPaT(1 

ft 

1298 

P( 1 , 6)=-P( 1,5) 

1 

1299 

P(l,7)=-0.125ASnATfi 

K 

1300 

P ( 1 ,8) =-P ( 1 ,7 ) 

■  V  **  V  *  V 


» 

s 


1301 

1302 

1303 

1304 
1303 

1306 

1307 
1303 
1300 
1310 

ran 

1312 

1313 

1314 

1315 

1316 

1317 

1318 

1319 

1320 

1321 

1322 

1323 

1324 

1325 

1326 

1327 

1328 

1329 

1330 

1331 

1332 

1333 

1334 

1335 

1336 

1337 

1338 

1339 

1340 

1341 
1343 
1343 
134  4 

1345 

1346 

1347 
1343 

1349 

1350 


M2, 

1) 

=  0.1 

25 

ARPaTP 

P  <  2 , 

2) 

=  0.1 

o  c 
J  J 

A  R  n  A  T  P 

P  ( 2 , 

3) 

=  -P  ( 

n 

t 

2 ) 

P(2, 

4) 

=  -?( 

n 

**  9 

1 ) 

P(2, 

5 ) 

=  0.1 

2  5  A  R  P  a  1  rt 

P  ( 2 , 

6) 

=  0.1 

n  c 
M  j 

A  R  n  A  T  h 

P  <  2, 

7) 

=-p( 

O 

**  9 

6 ) 

P  ( 2 , 

3) 

=-p( 

n 

“  t 

5) 

P  ( 3 , 1 ) 
P(3,2) 
P  ( 3 , 3 ; 
P  ( 3 , 4 ) 
P  (  3 , 5 ) 
P  ( 3  f  6 ) 
M  3 , 7  ) 
P  (  3 , 3 ) 


9 


=  0 . 125AKPaSP 
=  0 . 125AfcnASP 
-0 , 125AKnASri 
=  0 . 125ARPASrt 
=-Pt3,l) 

=  -  P  ( 3 , 2 ) 

=-P (3 , 3 i 
=~P ( 3 , 4 / 


IF  t  IEL . EQ . 8 )  60  TO  50 


ADD  DEGREES  UF  FREEEur,  In  EXCESS  OE  8 
1  =  0 

2  1= I  +  l 

IFU.GT.NND9)  GO  TO  40 
NN=N009 (  I)  -  8 

GO  TO  (9,10,11,12,13,14,15,16,17,18,19,20,21)  , NN 


10 


11 


12 


H( 9 1  =  0 
Ml,  9)  = 
P  ( 2 , 9 )  = 
P  (  3 , 9 )  = 
GO  TO  2 
H( 10 ) =0 . 
P(l,10>= 
P(2, 10) = 
P ( 3, 10 ) = 
GO  TO  2 
H  ( 1 1 ) =0 . 
P  ( 1 , 1 1 )  = 
P ( 2, 1 1 )  = 
P  ( 3 , 1 1 )  = 
GO  TO  2 
H( 12)=0. 
Ml, 12)  = 
P(2, 12)= 
P ( 3 , 12)  = 
GO  TO  2 


.25ARRASPATP 
-0 . SOAR ASPATR 
0 . 2  5  A  R  R  A  T  P 
0 . 25ARRASP 

JjARttAsSATP 
-0.25ASSATP 
'O.jOARmASATP 
0 . 25  ARri  ASS 

iSARRASriATP 
-0 . 50aRAS(1ATP 
-0 . 25ARRATP 
0.25ARRASO 

25AEPASSATP 
0 . -5ASS ATP 
-O.SOARPASaTP 
0 . 25 ARP  AS j 


b-: 


I 


S 

<. 

V 

V 
V* 
b 


to  *  «  *  fc-* 


’TOTCg?  7Trr7t7Ty  ■>  »Jl  ■>  vv 


1351 

13 

HU3)=0.25ARRASPATtt 

1352 

P  < 1 , 13)=-0.50ARASPATn 

1353 

P( 2, 13) =  0.25ARRATn 

1354 

P(3, 13)=-0.25ARRaSP 

1355 

GO  TO  2 

1356 

14 

H(14)=0.25AkrtASSATft 

1357 

P(l,14)=-0.25ASSATrt 

J 

1358 

P(2,l4)=-0.50AKriASATn 

1358 

P(3,14)=-0.25ARHASS 

a 

1360 

GO  TO  2 

ej 

1361 

15 

H(15)=0.25ARR*SnATn 

1362 

P( 1 , 15)=-0. 50ARASrtATn 

_ V 

1363 

P(2f15)=-0.25ARRATH 

4 

1364 

P(3,15)=-Q.25AkRASrt 

z 

1365 

GO  TO  2 

1366 

16 

H(16)=0.25ARPASSATrt 

y 

1367 

P  ( 1 , 16 ) =  0 . 25ASSATM 

$ 

1368 

P  (2,  16)=-0.50ARPASATH 

V 

1369 

P(3,16)=-0.25ARPASS 

0 

1370 

GO  TO  2 

0 

u 

1371 

17 

H(17)=0.25ARPASPATT 

J 

1372 

P(1,17)=0.25ASPATT 

. 

1373 

P ( 2 , 17 ) =0 . 25ARPATT 

\ 

• 

1374 

P(3,17)=-0.50ARPASPAT 

1375 

GO  TO  2 

•; 

1376 

18 

H(18)=0.25AR(1ASPATT 

;S 

1377 

P(lf ia>*-0.25ASPATT 

J 

1378 

P  <  2 , 18 )  =  0 . 2 jARftATT 

•S3 

1379 

P(3,18)=-0.50ARf1ASPAT 

1380 

GO  TO  2 

1381 

19 

H(  19)=0.25ARnA3riATT 

1382 

P(l,19)=~0.25ASrtAlI 

< 

1383 

P(2,19)=~0.25ARhATT 

J* 

1384 

P ( 3, 19) =~0. SOAkMASMAT 

1385 

GO  TO  2 

.1 

1386 

20 

H(20)=0.25ARPASMATT 

A 

1387 

P( 1 , 20 ) =  0 . 25ASnATT 

• 

1388 

P(2,20)=-0.25ARPATT 

1389 

P(3,20)=-0.50ARPaSmaT 

*4 

1390 

GO  TO  2 

1391 

21 

H  ( 21 ) =RRASSATT 

/p 

1392 

P(1,21)=-2.0ARASSaIT 

\ 

1393 

P(2,21)=-2.0ASARRATT 

_  *1 

4 

1394 

P(3,21)=-2.0aTARRaSS 

-■ 

1395 

GO  TO  2 

.1 

1396 

C 

- 

1397 

C 

HODIFI  FIRST  8  FUNCTIONS  IF  9  OR  MORE  NODES  IN  ELEnENI 

V 

1398 

C 

1399 

40 

IH=Q 

V 

1400 

41 

IH= IH  +  1 

V 

1401 

IF  (IH.GT.NND9)  60  TU  50 

'4 

Cl 

o 

<r 

1 1= IH  ♦  7 

? \ 

1403 

IF  (  II. EG.  IELXi  GO  TO  51 

A 

1404 

42 

IN-NQD9 (  IH) 

A 

_•  »  »  »  m  m 


.4  05 
.406 
.407 
.408 
.4  08 
.410 
1411 
L  412 
L413 
L  4 1 4 

1415 

1416 
L  4  1 7 

1418 

1419 

1420 

1421 

1422 

1423 

1424 

1425 

1426 

1427  C 

1428  C 

1429  C 

1430 

1431 

1432 

1433 

1434 

1435 

1436 
14  37 
1438 
14  39 

1440 

1441 

1442 

1443 

1444 

1445 

1446 

1447 
1440 

1449 

1450 

1451 

1452 

1453 

1454 


IF  ( IN.6T.16>  60  TO  46 
11  =  IN  -3 
12= 1PERH (  II ) 

H (  II )  =H (  ID  -  0.5AH<  IN) 

H (  I2)=H( 12)  -  0 . 5 AH (  IN) 

H (  IH  +  8 )  =H (  IN) 

DO  45  J  =  1 , 3 

P(3,  II  )=HJ,  II )  -  v.5aP(  3,  IN) 
p(3,  1 2 )  =  P ( J ,  12)  -  0 . 5aP ( J ,  IN) 

45  P  (  J  f  IH+8  )  =P  J  ,  IN) 

GO  TO  41 

46  IE  (IN. Eli. 2D  60  TO  30 
1 1  =  IN  -16 

12=11  +  4 

HI  ID  =Hi  ID  -  0.5AH1IN) 

H ( 12 ) =H (  12)  -  0 . 5 A H ( IN) 

H  (  IH  +  3 ) =H (  IN  ; 

DO  47  3=1,3 

P( J,  Il)=Pi J,  ID  -  0. SAP (3,  IN) 

Ej  /  7  TON-Li/7  TO)  A  C  i  Ci  /  1  T  Al  » 


2D  60  TO  30 

)  -  0 . 5AH (  IN ) 
)  -  0 . 5 AH (  IN) 


P(3,Il)=Pi3,Il)  -  0. SAP (3,  IN) 
P ( 3  , 12 ) =P ( 3 , 12 )  -  0 . 5 A P ( 3 ,  IN) 
P (  3  ,  IH  +  8 =P i  3  ,  IN; 


*  ;  j  j  in  ■  u 

GO  TO  41 


nOD IF Y  FIRST  20  FUNCTIONS  IF  NODE  21  IS  PRESENT 


IH  =  0 

IH= IH  +  1 
IN=N0D9 ( IH) 

IF  (  IN. EQ . 21)  GC 
IF  (IN.GT.16)  GC 
11= IN  -8 
12=  IPERM  (ID 
H (  1 1 )  =H (  ID  +  0. 
H ( 1 2 ) =  H (  12)  +  0. 
DO  32  3=1,3 
P(  J,  I1)=P(3,  ID 
P ( 3 ,  12) =P ( 3 ,  12) 
GO  TO  31 
11  =  IN  -  16 
12=11  +  4 
H  ( 1 1 )  =  H  (  I D  r  0. 
H(  I2)=H( 12)  +  0. 
DO  34  3=1,3 
P(3,  II  )=P<  J,  ID 


34  P(3,I2)=P(3,I2> 
GO  TO  31 

35  DO  36  1  =  1  ,d 

H(  I)=H(  I)  -  0.12 
DO  36  3=1,3 

36  P(J,I)=P(3,  I)  - 
N  N  =  N  N  D  9  +  7 

IF  (NN.EG.d)  60 
DO  33  1=9, UN 
H(  I)=H<  I)  -  0.25 


TO  35 
TO  33 


1 25 AH l 21 ; 

1 25 AH ( 2 1 ) 

+  0 . 1 25AP ( 3,21) 
+  0 . 125AP (3,21) 


1 25 AH ( 2 1 ) 

125  AH ( 21 ) 

+  0. 1 25AP ( 3,21) 
+  0. 1 2  5  A  P ( 3,21) 


,  AH ( 2  1  ) 


G.125AP(J,21> 


TO  50 


A li  (  2  1  ; 


1459  DO  38  J  =  1 ,  3 

1460  38  P(J,I)=P(J,  I)  -  0.25AP(J,21) 

1461  H ( NND9+8 ) =H( 21 ) 

1462  DO  39  J  =1,3 

1463  39  P( J,NND9  +  8)=PU,21 ) 

1464  C 

1465  C 

1466  C  EVALUATE  JACOBIAN  nAIRIX  AT  POINT  (R,S,T) 

1467  C 

1468  C 

1469  50  IE  ( IELX.LT.  IELD)  RETURN 

.470  51  DO  100  1=1,3 

1471  DO  100  3=1,3 

1472  DUH=0.0 

1473  DO  90  K=1 , IELX 

1474  90  OUM=DUM  +  P  ( I ,  K )  A  X  X  (  J ,  K ) 

1475  100  XJ ( I , J )  =DUM 

1476  C 

1477  C 

1478  C  COMPUTE  DETERMINANT  OF  JACOBIAN  MAIRIX  AT  POINT  (R,S,T> 

1479  C 

1480  C 

1481  DET  =  XJU,1)AXJ(2,2>AXJ<3,3) 

1482  1  +  XJU,2)AXJ(2,3)AXJ<3,1) 

1483  2  +  XJ(1,3)AXJ(2,1 ) AXJ ( 3, 2) 

1484  3  -  XJ(1,3)AXJ(2,2)AXJ(3,1) 

1485  4  -  XJ  ( 1 , 2 ) AX J ( 2, 1 ) AXJ (3,3) 

1486  5  -  XJ(1,1)AXJ(2,3)AXJ(3,2) 

1487  IE ( DET . GT . 1 . OE-b )  60  TO  110 

1488  WRITE  (33,2000)  nEL,K,S,T 

1489  STOP 

1490  110  IE  (IELX. LI.  IELD)  60  10  42 

1491  C 

1492  C 

1493  RETURN 

1494  C 

1495  C 

1496  C 

1497  2000  FORMAT  ( 49H0ERR0RA AA  NE6ATIVE  OR  ZERO  JACOBIAN  DETERMINANT, 

1498  1  23H  COMPUTED  FOR  ELEMENT  (,I5,IH),  / 

1499  2  12X,  3HR  =,  F10.5  / 

1500  3  12X ,  3H3  =,  F10.5  / 

1501  4  12X,  3HI  =,  F10.5  /  IX) 

1502  C 

1503  C 

1504  END 

1505  Ci=======-=====-=--=====-=-==-=-================= 

1506  SUBROUTINE  INL (  ID , b , TR , TMASS, NUMNP ,NEQB , LL ) 

1507  C 

1508  IMPLICIT  REALA8( A-H,0-Z> 

1509  C 

1510  C  CALLED  B ( :  MAIN 

1511  C 

1512  C  INPUT  NODAL  LOADS  AND  MASSEj 


DlrtENSION  ID i nUNNR , 6 )  ,DiN£Qb,LL)  ,TR<6,LL) ,  THASS ( NEQfc ) 
COMMON  /  JUNK  /  Rib),TXM<6),  IFILLK406) 

COMMON  /EXTRA/  MuDEX ,  N'1'8 ,  IF  ILL2  ( 14 ) 


1513 

1514 

1515 
ISIS 

C 

DIMENSION  ID  ( nUHNR  ,  6  )  ,  b  ! r 
COMMON  /  JUNK  /  Rib), TXM 1 
COHhQN  /EXTRA/  hUDEX , NT 8 , 

1517 

C 

1518 

NT  =  3 

1519 

REWIND  NT 

1520 

KSHF=0 

1521 

WRITE  133,2002) 

1522 

IF ( nODEX . EQ . 1 )  60  TQ  50 

1523 

DU  750  I=1,NEQ6 

1524 

THASSi  I) -0. 

1  c  oc 
i  -  vJ 

DO  750  1-1,  LL 

1526 

750 

B ( I, K ) -0. 0 

1527 

C 

1528 

50 

DO  900  NN- 1 , NUnNP 

1529 

C 

1530 

DO  100  1-1,0 

1531 

TXH ( I ) =0 . 

1532 

DO  100  J  =  1 , LL 

1533 

100 

TRi  I, J)=0.0 

1534 

C 

1535 

lE(NN.EQ.l)  GO  TO  300 

1536 

150 

IF(N.NE.NN)  60  Tu  400 

1537 

DO  200  I=l,o 

1538 

IF  (L)  180,180,190 

1539 

180 

TXMlI)=Ri I) 

1540 

GO  TQ  200 

1541 

190 

TRi  I, L)  =  R(  I) 

1542 

200 

CONTINUE 

1543 

300 

READ  (5,1001 )  N,L,R 

1544 

IF  (N.EQ.O)  60  TO  150 

1545 

WR ITE ( 33 ,2001 )  N , L , R 

15  46 

GO  TO  150 

1547 

C 

1548 

•100 

IF(HQDEX.Eu.l)  60  TU  900 

15  49 

DO  300  J=l,6 

1550 

1 1=  ID ( NN , J ) -KSHF 

1551 

IF  (II)  300,800,500 

1552 

500 

DO  600  K  =  1 , L L 

1553 

600 

B(  1 1 , K ) =  T R ( J  , K ) 

1554 

THASSi  1 1 )  =  1 X  M  i  J  ) 

1555 

blO 

IF!  II.NE.NEQD)  60  TO  8u0 

1556 

WRITE  (NT)  D.THhbS 

1557 

KSHF=K jHF +NEOB 

1553 

DO  700  1=1, NEuB 

i  5  5  v 

THASS  i  1 )  -<j  . 

1560 

DO  700  K= 1 , LL 

1561 

700 

B  i  I ,  K  )  =0 . 0 

1562 

800 

CONT  INUE 

1563 

900 

CONT  INUE 

1564 

C 

1565 

IF ( MODE/ . Eu . 1 )  RETURN 

1566 

C 

y^jTKirriirxwjr*jr’, y*j 


VJVVrJVJr 


vrv.v 


1567  URITE  (N I)  6 , TttASS 

1568  C 

1569  RETURN 

1579  1001  FORMAT  ( 2  15  f  7F10 .  -1 ) 

1571  2001  FORMAT  <2<3X, 14) .6E15.5) 

1572  2002  FORMAT  (47H1N  ODAL  LOADS  (STATIC)  OR 

1573  A  29HM  ASSES  (DYNAMIC),/// 

1574  B  3X,4HNGBE,2X,4HLGAD, 

1575  1  2(9X,6HX-AXIS,9X,6HY-AXIS,9X,6HZ-AXIS>,  /  7H  NUMBER ,  3X CASE  , 

1576  2  3 ( 10X , 5HFQRCE ) ,  3 ( 9X , 6Hn0flENT ) ,  /  IX) 


1577 

1578  C&=== 

1579 

1580  C 

1581 

1582  C 

1583  C 

1584  C 

1585 

1586  C 

1587 

1588  C 

1589  C - 

1590  C 

1591  C 

1592  C 

1593  C 

1594  C 

1595  C 

1596  C 

1597  C 

1598  C 

1599 

1600  C 

1601 
1602  C 


END 

SUBROUTINE  INPUTS ( ID , X , Y , 2 , T , NUMNP , NEO ) 

IMPLICIT  REaLAO ( A-H , 0-Z) 

CALLED  BY:  MAIN 

DIMENSION  X(l) ,Y(1),Z(1) ,  ID ( NUMNP  ,6 ) ,  I ( 1 ) 

COMMON  /EXTRA/  flODEX ,  NT8 ,  IF  ILL  ( 14 ) 

SPECIAL  NODE  CARD  FLAGS 

IT  =  COORDINATE  SYSTEM  TYPE  (CC  1,  ANY  NODE  CARD) 

EQ.C,  CYLINDRICAL 

IPR  =  PRINT  SUPPRESSION  FLAG  (CC  6,  CARD  FOR  NODE  1  ONLY) 

EQ.  ,  NORMAL  PRINTING 

EQ.A,  SUPPRESS  SECOND  PRINTING  OE  NODAL  ARRAY  DATA 
EQ.B,  SUPPRESS  PRINTING  OF  ID-ARRAY 
EU.C,  BOTH  AAA  AND  ABA 

DIMENSION  IPRC ( 4 ) 

DATA  IPRC/1H  , 1HA  f 1HB , 1HC/ 


1603  IPR  =  IPRC ( 1 ) 

1604  RAD  =  DATAN(1.0D0)/45.0D0 


1605  C 

1606  C 

1607  C -  READ  OR  GENERATE  NODAL  POINT  DATA - 

1608  WRITE  (33,2000- 

1609  WRITE  (32,2001 ) 

1610  N0LD=0 

1611  10  READ  (  5,1000)  IT ,N , JPK , ( ID(N, I) , 1  =  1 ,6) , X(N) , Y (N i ,Z(N ) ,KN ,T< N  ) 

1612  C 

1613  C 

1614  CAA  AA  AA  NEXT  LINE  IS  DELETED  FOR  NOT  PRINTING  NODAL  INPUT  DATA 

1615  C  WRITE  (33,2002)  IT ,N , JPR , ( ID ( N , I ) , 1=1 ,6) , X( N ) , Y ( N) , Z( N ) , LN , T ( N ) 

1616  CAA  AA  AA  AA 

1617  C 

1618  IF(N.EQ.l)  IPR  =  JPR 

1619  IF (  IT  .NE  .  IPRC ( 4  )  )  GO  TO  15 

1620  DUM  =  Z ( N ) A  RAD 


V. 


ll 


1621  Z(N)  =  XiN)ADCuSiOUrw 

1622  X  ( N  )  =  XLtOAbSINibUh) 

1623  15  CONTINUE 

1624  IF(NGLB.EU.O)  60  10  50 

1625  C - CHECK  IF  GENERATION  IS  REQUIRED - 

1626  DO  20  1=1,6 

1627  IF ( IB ( N , D.EQ.O.AnD. ID (HOLD,  I) .LT.O)  IDiN, I )  =  ID (HOLD,  1; 

1623  20  CONTINUE 

1623  IF(KN.EQ.O)  60  l'u  50 

1630  NU(1=  (  N-NOLD  ;  /KN 

1631  NUllN  =  Nun-l 

1622  IF  < NUNN . LI .  1 )  GO  TO  50 

1633  XNUr1  =  NUn 

1634  DX= ( X ( N ) -X  v  NOLO ) ;/ XNUn 

1635  D  Y  =  <  Y <  N ) - Y (MOLD/ XNUn 

1636  DZ  =  ( Z  ( N  j  -Z NOLD )  ).  XNUn 

1637  DT=(T(N)-T(NQLD) ) .  XNUn 

1633  K=NOLD 

1639  DO  30  J-l,NUnN 

1640  KK-K 

1641  K  =  I(  +  KN 

1642  X  l  K )  =  X  ( K  K ) t  D  X 

1643  Y (K ) =Y ( KK ) +DY 

1644  Z(K>=Z(KK) rDZ 

1645  T(K)=T(KK)+6T 

1646  DO  30  1=1,6 

1  o47  ID ( K , I)  =  ID(KK,  1 1 

1648  IF  ( ID(K,  I) .OT.l )  ID( K , I )  =  ID ( KK ,  I ) *KN 

1649  30  CONTINUE 

1650  C 

1651  50  NQLO=N 

1652  IF ( N . NE . NUnNP  i  60  TO  10 

1653  C 

1654  C - PRINT  ALL  NuDnL  POINT  DATA - 

1655  C 

1656  IF(  IPk.EQ.  1FRC(2)  .OR.  IPS . EQ .  IPRC ( 4 ) )  60  TO  52 

1657  URITE  (33,2003) 

1658  URITE  (33,2001) 

1659  URITE  (33,2005)  (N, (  ID(N,  I) ,  1  =  1 ,6)  ,X(N) ,Y (N) ,Z(N) ,T(N) ,N= 1 , NUnNP ) 

1660  52  CONTINUE 

1661  C 

1662  C - NUMBER  UNKkuUnS  AND  SET  nASTER  NODES  NEGATIVE - 

1663  C 

1664  NEQ=0 

1665  DO  60  N=1 , NUnNP 

1666  DO  60  1=1,6 

1667  ID( N , I )  =  IADS (  ID  l  N ,  I )  ) 

1668  IF(  ID ( N ,  I)-l)  57,58,59 

1669  57  NEQ=NEGH 

1670  ID ( N ,  I ) =NEO 

1671  GO  TO  60 

1672  58  I D ( N ,  I ) =  0 

1673  GO  TO  60 

16n4  59  ID(N,  I)=- IDtN,  I) 


B-31 


lb75  60  CONTINUE 

1676  C 

1677  C -  PRINT  MASTER  INDEX  ARRAY 

1678  C 

1679  IF( IPR.EQ. IPRCC3)  .OR.  IPR.EQ. IPRC(4> >  GO  TO  62 

1680  WRITE  (33,2004)  ( N , (ID ( N , I ) , I =1 , 6) , N  =  1 ,NUMNP ) 

1681  62  CONTINUE 

1682  IF ( MQDEX .£0.0)  GO  TO  70 

1683  C AAA  DATA  PORTHOLE  SAVE 

1684  WRITE  (NT8)  ( ( IIKN, I) , 1=1 ,6) , N=1 , NUnNP ) 

1685  WRIIE  (NT8)  ( X ( N ) ,N  =  1 , NUnNP  ) 

1686  WRITE  (NT8)  ( Y ( N ) , N= 1 , NUhNP  ) 

1687  WRITE  (NT8 )  ( Z ( N ) ,  N- 1 , NUnNP ) 

1688  WRITE  (NT8)  < T ( N ), N= 1 , NUnNP  ) 

1689  ENDFILE  NT8 

1690  C 

1691  REWIND  2 

1692  WRITE  (2)  ID 

1693  C 

1694  RETURN 

1695  C 

1696  70  CONTINUE 

1697  REWIND  8 

1698  WRITE  (8)  ID 

1699  C 

1700  RETURN 

1701  C 

1702  1000  FORMAT  ( 2 ( A1 , 14 ) , 5 15, 3F10. 0, 15, F10.0) 

1703  2000  FORMAT  (7/23H  NODAL  POINT  INPUT  DATA  ) 

1704  2001  FORMAT  ( 5H0NQDE  3X  24H60UNBAR Y  CONDITION  CODES  1 IX 

1705  .  23HN0DAL  POINT  COORDINATES  /  7H  NUMBER  2X  IHX  4X  1HY  4X  IHZ  3X 

1706  .  2HXX  3X  2HYY  3X  2HZZ12X  IHX  12X  1HY  12X  IHZ  12X  1HT  ) 

1707  C 

1708  C 

1709  CAA  AA  AA  NEXT  LINE  IS  IGNORED  WITH  LINE  *31600 

1710  C2002  FORMAT  ( IX , A1 , 14 , A1 , 13 , 5 15 , 3E13 . 3 , 15 , F13 .3) 

1711  CAA  AA  AA 

1712  C 

1713  C 

1714  2003  FORMAT  ( //2IH1GENERATEB  NODAL  DATA) 

1715  2004  FORMAT  ( // 17H1EQUAT ION  NUMBERS/ 

1716  1  35H  N  X  Y  Z  XX  YY  ZZ  /(7I5)) 

1717  2005  FORMAT  ( 15 , 6 15 , 4FI3 . 3 ) 

1718  END 

1719  C &  =  =  =  =  ”  =  =  =  =  =  =  =  =  =  =  =  =  =  =  =  =  =  =  =  =  =  =  =  =  =  ===  =  =  =  =  =  =  ===«=  =  «===  =  *==  ===  =  =  ===  =  =  =  -• 

1720  SUBROUTINE  INP21  ( NUMnAT , MAXTP , NORTHO , NDLS , NOPSET ,NT8SU , NUMNP , X , 

1721  1  Y,Z,DEN,RHO,NTP, EE , DCA , NFACE , LT , PWA, LOC , MAXPTS ) 

1  722  C 

1723  C  CALLED  BY  :  THDFE 

1724  C  CALLS  :  VECIR2 , CR05S2 

1725  C 

1726  IMPLICIT  REALAS' A-H,Q-Z) 

1727  C 

1728  C 


b-32 


--  --  av  v.v.v.v.v^."W/;ji[ 


wwonOTT  J  W.l ' AWA’.v.v 


1729 

C 

THIS  ROUTINE  READS  AND  PRINTS  ALL  21-NODE  SOLID  ELEMENT  DATA 

1730 

C 

BETWEEN  THE  CONTROL  CARD  AND  THE  ELEnENT  DATA  CARDS 

1731 

c 

1732 

c 

1733 

COMnQN  /  JUNK/  aLF ( 4 / , i LE (4 ) , 2LF ( 4 ) , TLE ( 4 ) f PLF ( 4 > , F  ILL 1( 22 ) 

1734 

COhnON  /EXTRA/  rtCDEx ,  NT8 

1735 

c 

1736 

D  InENS  ION  Jll),(ili , 2( 1 > , DEN ( 1 ) , kHQ ( 1 ) , NTP (1 ) , EE ( MAXTP , 13 , 

1737 

1 

DC Ai 3,3,1) ,NFACE; 1) ,LT(li ,PUA<7,1) ,L0C(7, 1)  , 

173b 

.J 

;  nAxFTb •  i  / 

1739 

D  InENS  ION  HED\6  .' 

1740 

c 

1741 

c 

READ  AND  PRINT  OF  n A T £ K i A L  PROPERTIES 

1742 

c 

1743 

WRITE  (33,3000; 

1744 

c 

1745 

DO  10  I-  1 , NUnnAl 

1746 

c 

1747 

READ  (5,1001)  n ,  NTP (  I ) , DEN (  I ) , RHQ (  I ) , ( HED (N ) ,N=I , 6 ) 

1748 

c 

1749 

c 

SET  DEFAULT  VALUES  IF  REuUIRED  AND  CHECK  FOR  INPUT  ERRORS 

1750 

c 

1751 

1F(RH0(  I) .EG.O.O)  RHUlI)  -  DEN  (  I )  /  386.4 

1752 

IF ( NTP ( I > . EQ .0 )  NTP t  I x  =  1 

1753 

c 

1754 

WRITE  (33,3002)  n.MTPl  I) ,DEN(  I; ,RHO( I) , (HED(N) ,N  =  1 ,6) 

1755 

c 

1756 

IF(I.EQ.M)  60  TO  2 

1757 

URITE  (33,4001; 

1758 

STOP 

1759 

c 

1760 

o 

IF(NIFCM) .LE.nAXTPi  60  TO  4 

1761 

URITE  (33,4002/  nAXIP 

1762 

STOP 

1763 

4 

NT  =  NTP(rt) 

1764 

c 

1765 

c 

READ  PROPERTIES  FOR  EACH  TEnPERAIURE 

1766 

c 

1767 

DO  6  K=  1 ,  NT 

1768 

READ  (5,1002)  (EE(K,L,ni , L  = 1 , 13) 

17  69 

URITE  (33,3003)  •.  EElK ,  L  ,  n ) ,  L  =  1 , 13) 

1770 

6 

CONTINUE 

1771 

c 

1772 

c 

TEMPERATURE  CARDS  nUbl  BE  ASCENDING  ORDER 

1773 

c 

1774 

IF(NT.EQ.l)  60  TO  10 

1775 

00  3  J  - 2 ,  N T 

1776 

IF  (  EE  (  J  ,  1 ,  n  ) .  6T  .  In  J  i,l,n>)  60  TO  8 

1777 

WRITE  (33,4063) 

1778 

STOP 

1779 

8 

CONTINUE 

1760 

10 

CONTINUE 

1781 

CARA 

DATA  PORTHOLE  SAVE 

1782 

IF ( NT8SV . EO . 0 /  60  TO  ;2 

B  -  3  3 


1783  DO  11  H=l,NUnrtAT 

1784  WRITE  (NTS)  h , NIP ( n ) , DEN ( M ) , RHO ( H ) 

1785  NT  =  NTPC  M ) 

1788  WRITE  (NT8 )  U EE ( K , L f h ) , L=1 , 13 ) ,K=1 f NT ) 

1787  11  CONTINUE 

1788  C AAA 

1789  C 

1790  C  MATERIAL  AXIS  ORIENTATION  SETS 

1791  C 

1792  12  IF (NORTHQ.Eu.O)  GO  TO  21 


1793 

1794 

1795 

1796 

1797 

1798 

1799 

1800 
1801 
1802 
1803 
1304 

1805 

1806 

1807 

1808 
1309 
1810 
1811 
1812 

1813 

1814 

1815 

1816 

1817 

1818 

1819 

1820 
1821 
1322 

1823 

1824 

1825 

1826 

1827 

1828 

1829 

1830 

1831 

1832 

1833 

1834 
1335 
1836 


WRITE  (33,3004) 

C 

DO  20  H= 1 , NORTHS 
READ  (5,1003)  N,NI,NJ,NK 
WRITE  (33,3005)  N,NI,nJ,NK 
C 

CAAA  DATA  PORTHOLE  SAVE 
IF ( NT8SV .  EQ .  1 ) 

AWRITE  (NTS)  N,NI,NJ,NK 

CAAA 

C  CHECK  FOR  ADn ISSAK IL ITY  OE  DATA 
C 

IF(N.EQ.h)  GO  TO  13 
WRITE  (33,4004) 

STOP 


13 

IF (NI.GT.O 
L  =  NI 

.AND. 

nI.LE.NUHNP) 

GO 

TO 

5015 

5014 

UR IIE  <33, 
STOP 

4005  ) 

L 

5015 

IF ( NJ  .  GT .  0 
L  =  NJ 

GO  TQ  5014 

.AND. 

Nj.LE.NUflNP) 

GO 

TO 

5016 

5016 

IF ( NK . GT  .  0 
L  =  NK 

GO  TO  5014 

.AND. 

NK.LE.NUnNP) 

GO 

TO 

14 

14 

CONTINUE 

C 

C  GENERATE  DIRECTION  COSINE  ARRAY  FOR  THIS  DATA  SET 

C 

CALL  V E C T ft 2  (BCA< i ,1,M),X(NI),Y(NI),Z(NI),X(NJ),Y(NJ),2<NJ/, IERR) 
IF ( IERft.EQ.0)  GO  TO  1C 
WRITE  (33,4006) 

STOP 

16  CALL  VECTR2  ( V2 , A < N I > , Y < N I > , Z ( N I ) , X < NK > , Y ( NK ) , Z ( NK > ,  IEftfo 
IF ( IERR.EQ.O)  GO  TO  17 

WRITE  (33,4007) 

STOP 

17  CALL  CRGSS2  ( BCAi 1 , 1 ,n) , V2, BCA< 1 , 3,M> ,  IERR) 

IF (  IERR.EQ.O)  GO  TQ  13 

WRITE  (33,4008) 

STOP 

18  CALL  CRQSS2  ( DCA (  1 , 3 , M )  ,  DC A< 1 , 1  ,  H )  ,  DCA ( 1 , 2 , M ) ,  IERR  ) 


P  -  3  4 


i 


I 


1837 

1338 

1833 

1840 

1841  C 

1842  C 

1843  C 

1844 

1845  C 
134b 
1347  C 
1848 
1349  C 
1850 
1351 
1852  C 

1353  C 

1354  C 
1855 
185G 
1857 
1358 

1859 

1860 
1861 

1362 

1363 

1364 
1865 
1566 

1867 

1868 

1869 

1870 

1871 

1872 

1873 


IF(  IERR.EQ.0)  GO  TO  20 
WRITE  (33,4009) 

STOP 

20  CONTINUE 

READ  AND  PRIN X  DlSIKJDUicD  SURFACE  LOAD  DATA 

21  IF(NDLS.EQ.u)  GO  TO  31 
URITE  ( 33 , 200o ; 

DO  30  «=1,NDLS 

READ  (5,1004.)  N  ,  Nr  ACE  >.  n )  , LT ( n ) 

URITE  (33,3007)  N,NFAC£ifl)  ,LT(rl) 

CHECK  FOR  DATA  ADnlSSABILITT 

IF(N.EQ.H)  GO  TO  22 
URITE  (33,4010) 

STOP 

22  IF  (NFACE  (n>  .GE.l  .AND.  Nl-ACE(n)  .1.E.6)  GO  TO  23 
WRITE  (32,4011) 

STOP 

23  IF ( LT ( H ; . EQ . 0 ;  LT(n;  -  1 

IF ( LT ( h ) . G£ . I  .AND.  LT^n;.LE.2>  GO  TO  24 
URITE  (33,4012; 

STOP 

24  1F(LT(H) .£0.2;  GO  TO  2b 

READ  (5,1005;  ( PUA (  I , n ; ,  l- 1 , 4 ) 

DO  25  1-2,4 

25  IF ( PUA(  I , n ; . Eu . 0 . 0 ;  PUn(I,rt)  -  PWA(l,rf; 

URITE  (  3  3 , 3  0  0  '3 )  iPWA(l,f\),I  =  l,4) 

GO  TO  30 

3b  READ  \  5 , 1 0  v  5  )  (P  Un(I,i'i;,I*I,7) 

URITE  (33,3009)  C PUA (  1 , 0 ;  ,  1  =  1 ,7 ) 

30  CONTINUE 


1874  C 

1875  Ckkk  DATA  PORTHOLE  SAOE 

1076  IF  ( NT8SV  .  EO  .  0 )  (10  T U  j  b  3 1 

1877  DO  5030  rt=l,NDLS 

1878  WRITE  (NTS/  NFACE  ■  n  ; ,  LT  wi ; ,  ( PWA(  I,  fl> ,  1  =  1 ,  ?) 

1879  5030  CONTINUE 

1830  5031  CONTINUE 

1881  Ckkk 

1882  C 

1883  C  READ  AnD  FLINT  ul  STRESS  OUTPUT  REQUEST  LOCATION  SET 

1884  C 

1885  31  I F ( N 0 P S E T . l u  .  0  /  bu  TO  49 

1886  C 

1807  URITE  (33,  1m;  ■  I,  1-1,7; 

1888  URITE  (34, a;  ' - STRESS  OUTPUT  LOCATIONS---' 

1889  C 

1890  DO  4ft  n-l,NuFvET 


b  -  35 


V.VA 


BB  =  0.0 

CC  =  0.0 

BO  120  1=1,3 

AA  =  AA  +  X J ( MM ,  I )  AA2 

CC  =  CC  +  XJ(MN,  I )  A  A  2 


✓  V  W  ‘j-  .* 


READ  (5,1000)  ( LOC (I, A), 1  =  1, 7) 

WRITE  (33,2011  )  n , ( LOC (  1 , n ) ,  1  =  1 ,7 ) 

URITE  (34,3011)  n, ( LOC (  I, Ml,  1  =  1,7) 

L  =  0 

BO  35  1=1,7 

IF  (  LOC (  J  ,  M )  .  EQ .  0  )  Gu  TO  30 
L  =  L  1 

IF  (  LOC  ( J  ,  rl )  .  Gt .  1  .  AnIi.  LOC  (  3,M)  .LE.27)  GO  TO  35 
URITE  ( 33 ,  i013 )  j 
mOLEX  =  1 
GO  TO  3u 

35  CONTINUE 

36  IE(L.GI.O)  GO  TO  37 
L  =  1 

L0C(l,fW  =  21 

37  MAXPISln)  =  L 


TO  CONTINUE 

CAAA  BATA  PORTHOLE  SAGE 
IF ( NT8S0 . EG .  1 ) 

AWRITE  (NT8)  ( ( LOC ( I , J  )  ,  1  =  1 ,7 ) , 3  =  1 .NOPSET) 

CAAA 

C 

C  ELEMENT  LOnt)  CASE  MULTIPLIERS 
C 

40  URITL  (33,2012) 

C 

READ  (5,1007)  XLt , ILF , 2LF , ILF , PLF 
URITE  (33,3013)  XLF , T LF , 2LF ,TLF , PLF 
CAaA  BAlA  porthole  s«ve 
IF ( NT830 . EO .  1 ) 

AURITE  (NT3;  XLF , TLF , ZLF , TLF , PLF 

CAAA 


1001  FORMAT  i215,2Flv.<:,oAo: 

1002  FORMAT  l  7  F 1 0 . 0  /  b  F 1 0 . 0  I 

1003  FORMAT  (415; 

10j4  FORMAT ( 3 15 i 

1005  EORMAT  7 F  1  u .  w  j 

1006  FORMAT  ( 7  1 5  ■ 

1007  FORMAI  ’ 4F10.v/ 

3000  FORMAT  3SH  MATERIAL  PROPERTT  TABLES 
3002  FORMAT  i // lLHOmATER  IAL  NUMBER  =  (,I3,1H),/ 

1  Ib'H  NUMBER  OF,  / 

2  2  3H  I  LnP  LRATU  RL  POINTS  =  ( ,  1 3 , 1 H ) , / 

3  ..  ,H  UE  IbitT  BENbiTT  =  (  ,E12.4,1H),, 

■1  ,tl  .1A_.  ,  BEN-  Ur  -  (  ,E12.4,  1H)  ,  -■ 


.  ••  s  ■■  ■ 


r 

i 

5 

3 

V 

) 

O' 

V 

c 

v1 

V> 

V 

1 


V* 

v' 

Jv 

S 


K. 


V 

'»• 

I . 

K 

r. 

Ev 


15  45 

1946 

1947 

1948 

1949 

1950 

1951 

1952 

1953 

1954 

1955 

1956 

1957 
1953 

1959 

1960 

1961 

1962 

1963 

1964 

1965 

1966 

1967 

1968 

1969 

1970 

1971 
197  2 

1973 

1974 

1975 

1976 

1977 

1978 
19"  9 
1 980 
1  361 

1982 

1983 

1984 

1985 
158o 
1987 
1968 

1989 

1990 

1991 

1992 

1993 

1994 

1995 

1996 

1997 
1  998 


5  23H  IDENTIFICATION  =  (,6A6,1H),// 

6  lX,llHTEnPERATURE,9X,3HEllf9X,3HE22,9Xf3HE33,4X,3HV12,4' , 3HV13, 

7  4X ,  3HV23 ,  oX ,  3HG12 , 8X ,  3HG1 3 , 3X ,  3HG23 , 3X ,  7HALPHA- 1 , 3X ,  7HALB  riA  -  2 , 

8  3X , 7HALPHA-3 , / IX ) 

3003  FORMAT  \F12 . 2 , 3F12 . 1 , 3F7 . 3 , 3F1 1 . 1 , 3E10.3 ) 

3004  FORMAT  C//50H  MATERIAL  AXIS  ORIENTATION 

1  3X , 9HT  ABLE  ,/7 

2  28H  s£T  NODE  NODE  NODE  ,  / 

3  23H  NUMBER  Nl  nJ  NK,  /  IX) 

3005  FORMAT  (417/ 

3006  FORMAT  (//5I.H  DISTRIBUTED  SURFACE  LOAD 

1  1 1 H  f  A  is  L  S  ,  /  ,  1 X  ) 

3007  FORMAT  ( ,  , 7X , 27HL6AD  SET  NUMBER  =  ,16  / 

1  7X , 27HLUA0  SURFACE  ELEMENT  FACE  =  ,16  / 

1  7  X  ,  S7HLGA1)  TIRE  CODE  =  ,  16/ 1 X  > 

3008  FGRnAT  '.12H  D  1 3 T R  IBOTEB ,  1 IX  ,  4HP ( 1 ) ,  1 IX , 4HP (  2)  ,  1 IX ,  4HP  ;  j  >  ,  1 1 X  , 

1  4HPU),  /  4X,6HPRE'3SURE,4E15.3) 

3009  FORMAT  tl2H  H  i  BROSTAT  IC  ,  10X ,  5HGAMMA ,  1 IX ,  4HX<  S ) ,  1 IX  ,  4HY  ( 2  .■  ,  1 1  /  , 

1  4HZ(S/,llXf4HXiN),llX,4HY(N>,llX,4HZ(N),  / 

2  4X, 8 M PRES SURE,  7F15.3) 

3010  FORMAT  i /  5 1 H  STRESS  OUTPUT  REQUEST  TABLE 

A  // 

A6H  SET  , 7 1 2x , 5HP0  INT i ,  /  8H  NUMBER  , 7  ( 4X , 1H< ,  II ,  1H) )  ,,  lx/ 

3011  FORMAT  (  18,717) 

3012  FORMAT  i.-7/34h  ELEMENT  LOAD  CASE  ,ux, 

1  21Hm  U  L  T  1  P  L  I  E  R  3  ,// 

A  31 X , 61ICASE  A,4X,6HCASE  B,4X,6HCASE  C, 

2  4X,6HCAS£  D,/lX/ 

3013  FORMAT  \ 

1  27H  X-DIRECTIOn  GRAVITY  =  , 4F10 - 2/ 

2  27H  Y-DIRECTIUN  GRAVITY  =  ,4F10.2/ 

3  27H  2-DIRECTION  GRAVlIf  =  , 4F 10 . 2/ 

4  27H  THERMAL  LOADING  =  ,4F10.2/ 

5  27H  PRESSUkE  LOADING  =  ,  4F 1  0 . 2  //IX) 

4001  FORMAT  >.  4v,iIiOEKROi.  .‘.a  A  MATERIAL  CARDS  OUT  OF  ORDER.  ,/l>. 

4002  FORMAT  ( 52H0ERR0R.A aa  NUMBER  OF  TEMPERATURE  CARDS  EXCEEDS  USER, 

1  10H  MAXIMUM  (  ,  I4,2H/ . ,  /  IX/ 


4 >J 0 3  FORnAT  \.51H0ERRuRAaA 
1  7H  UkDER . ,  /  IX/ 

4  0  0  4  FORMAT  47hOERRuKaXA 

4005  F  U  k  M  A  T  \  J  Li  H  0  E  k  R  0  i<  a  A  a 

4006  FORMAT  t 38huERkuKAAA 

4007  FORMAT  i 36hOERRUkA*A 

4008  FORMAT  143H0ERRGRAAA 


4009  FORMAT 

4010  FORMAT 

4011  FOkMAI 

4012  FORMAT 


4  3  ri  0  E  i<  R  0  R  A  A  A 
50H0ERRURAaA 
4  0  H  0  E  k  R  U  R  A  *  a 
3'jtiOLhkukAAA 


4013  FORMAT  i  4  J  H  0  E  k  K  U  k  >.  A.  a 
C 
C 

C  4  - 


TEMPERATURES  MUST  BE  INPUT  IN  ASC2.-D2..J  , 

AXIS  ORIENTATION  CARD  OUT  OF  ORDtn . , . IX/ 
UNDEFINED  NODE  NUMBER  -  ,15  /  >.  ■ 

VECTOR  13  HAS  ZERO  LENGTH 1 X / 

VECTOR  IK  HAS  ZERO  LENGTH.,/ IX) 

IJ  AND  IK  VECTORS  ARE  PARALLEL 1  >  / 

E3  AND  FI  VECTORS  AkE  PARALLEL  .  ,  ■  .  <  ■> 

/ET  NUMBERS  MUST  F)E  IN  ASCEND  IN  U  s  t\  D  E  r  , .  lx/ 
INVALID  SURFACE  FACE  NUMBER.  ,/!«-' 

INVALID  LOAD  TYPE. , / 1 X / 

invalid  output  point  number  -  ,  i.,  i «.  > 


End 
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3 


$ 
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5 

A 

A 


.4 


t* 
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.1 

5 


% 


1 


J 

V1 


i 
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i 

a 


1999  SUBROUTINE  PR  INTO  1 10  ,  D ,  B  ,NEQB  ,NUHNP ,  LL  ,  HBLOCK  f  NEQ  ,  NT  ,nii  > 

2000  IrtPLICIT  REALA8 ( A-H ,  Q-Z ) 

2001  C 

2002  C  CALLED  BK  SQLEQ  ,  SOLE  IG  ,  RESPEC 

2003  C 

2004  D IHENS ION  ID (NUnNP , 6 ) ,B(N£Q6 f LL ) f 0(6, LL ) 

2005  DATA  011,021, U12, 022, 013,023/'  LOAD','  CASE ' , ' E IGEN- ' , ■ VECTOR ' , 

2006  1  '  NODE  ' , ' NUttBtR ' / 

2007  C 

2008  REWIND  8 

2009  READ  v3 )  ID 

2010  M  =  NEfl 

2011  nn=neobanbluci; 

2012  C 

2013  IE  (HQ.EQ.2;  60  TO  So 

2014  IE  (MQ.EQ.3)  60  TO  55 

2015  REUIND  NT 

2016  01=01 1 

2017  02=021 

2018  GO  TO  60 

2019  50  01=012 

2020  Q2=Q22 

2021  GO  TO  60 

2022  55  01=013 

2023  Q2=Q23 

2024  REUIND  NT 

2025  READ  (NT) 

2026  60  continue 

2027  c--  WRITE  (33,2003)  01,02  'removed  as  there  is  a  print  in  SOLEO 

2028  C 

2029  N=NUMNP 

2030  rewind  r.t  I AkAAAAaAAAAAAAAAA 

2031  C 

2032  DO  500  KK  =  1  ,NUftNP 

2033  C 


2034 

1  =  6 

2035 

DO  250  11=1,6 

2036 

DO  100  L= 1 , LL 

2037  100 

D< I , L  >  =0  . 

2038 

IF (rt.GT.NN/  60 

TU 

150 

2039 

IF  (rt.ECl.O)  60 

TO 

150 

2040 

READ  (NT;  b 

2041 

NN=NN-NEOB 

2042  150 

IF(  ID(N,  I;.LT. 

1  ; 

6U  TO 

2043 

K  =  M  -  N  N 

2044 

rl  =  rl  - 1 

2045  C 

2046 

DO  200  L  =  1 ,  LL 

2047  200 

D  i  1 ,  L  )  =  B  (  K  ,  L  ) 

2048  250 

1  =  1-1 

204  9  C 

2050  cc-  WRITE  (33,2u04;  N , ' L , i Lu  I , L ) , I  -  1 , 6 )  ,  L  =  1 , LL  ) 

2051  C 

2052  500  N  =  N  - 1 


i*  ■  j  8 


RETURN 


2053  C 

2054 

2055  C 

2052  -.003  FORMAT  vlHl,38Hf<  ODE  DISPLACEMENTS/, 

2057  1  1 7MR  u  T  A  T  I  u  N  S ,//  3X ,  4HN0DE ,2X ,  A6 ,2  ( 12X  f  2HX  -  ,  I ■  , 

2058  2  2Hl-,I2X,2HZ->  ,  /  7H  NUMBER,  2X,  A6 ,3  ( 3X ,  1 1HTRANSLAT  ION  • , 

2059  3  3(oX,SHR0TAII0N),  IX) 

1060  2004  FORMAT  ( Ifc , 18 , GE14.5 , :  /  (?X,  18, GEM. 5)  ) 

2061  C~~  2004  FORMAT  ( 1  HO , 10 , lb , oEl 4 . 5  /  ( / X ,  13 , 6E1 4 . 5 )  ) 

2062  C 

2063  END 

2064  C£-================--- -===-======-=============================-------=- 

2065  SUBROUTINE  SCljI 

2066  C 

2067  6  CALLED  bi  :  ELT/PE 

2066  C  CALLS  STB  SC 

2069  C 

-070  IMPLICIT  REALa8(A-H,0-Z; 

2071  C 

2072  C  3  /  D  8  TO  21  NODE  SOLID  ELEMENTS 

2073  C 

2074  COMMON  / E L P A R NP AR  >1  4 )  ,  NUnNP  ,  nBAND , NELTYP  ,N1  ,N2 ,  N3 ,  N4 ,  N5  ,  nlul ,  r<ECi 

2075  COMMON  /E(1/  NS ,  ND ,  Lf)  (  63  ) 

2076  COMMON/ JUNK/  LT,LH,L,Nb,SIG(42),N7,N8,N9,Nl0fNll,N12,N13,Nl4, 

2077  1  N 1 5 , N ) 6 , N 1 7 

2078  COMMON  /EXTRA/  MODEX , NT8 , N10SV  , NT10 

2079  C 

2080  COMMON  Hil, 

2081  C 

2082  C 

2083  IF  ( NPAR  ( 1 .  EO ,  0 >  60  Tu  500 
208  4  C 

2085  C  ERROR  CHECKS  AND  SET  DEFAULT  VALUES  IF  REQUIRED 

2086  C 

2087  WRITE  (23,1000; 

-683  IF ( NPAR ( 2 ; . OT . 0 )  60  TO  10 

2089  WRITE  (33,1001;  • NPAR ( K ) , K= 1 , 10 ) 

2090  WRITE  (33,1002) 

2091  STOP 

2092  10  IF  <NmAR(3) .GT.O)  GU  Iu  20 

2093  WRITE  (33,1001  )  l  N  P  A  R  (  K  )  ,  K  =  1 , 1 0  ) 

2094  WRITE  (33,1003) 

2095  STOP 

2096  20  IF ( NPAR ( 4)  .EU.O)  NPAR(4)  -  1 

2097  IF(NPAR(7) .£0.0)  NPAR ( 7  >  -  2i 

2098  IF  (  N  P  A  k  (  7  )  .  6  E  .  8  .AND.  r<P  AR  ( 7 )  .  LE  .  2 1  )  GO  TO  30 

2099  WRITE  <  33,1001  >  (  NPAR  ■ K  •  ,  K  =  1 , 1 0  ) 

2100  WRITE  (32,10 0 4  1 

2101  STOP 

- 1  0  2  30  IE<NPAk\9).EU.O;  ft .  A  k  9  )  -  2 

2103  IF  (NPAR  (9)  .uE.2  .AND.  r<P  AR  ( 9 )  .  LE .  4 )  GO  TO  40 

2104  WRITE  (33,1001)  <  NPAR  ■,  K  i  ,  r.  =  1 , 10 ) 

2105  WRITE  !  6  ; ,  1 0v.'5  > 

-iOu  STOP 


t  J  t  J  t  J  t  J  to  to 


107  40  IE (NPAR ( 10 ) .  EQ . 0 )  NPAR(IO)  =  2 

108  IF(NPAR( 10) .GE.2  .AND.  NPAR(10)  .LE.4)  GO  TQ  50 

109  WRITE  (33,1001)  ( NPAR ( K ) , K=1 , 10 ) 

110  WRITE  (33,1005) 

111  STOP 

112  C 

2113  C  STORAGE  ALLOCATION 

2114  C 

2115  C  A  ( N6 )  =  STARTING  LOCATION  UF  WEIGHT  DENSITY 

2116  C  A ( N7 )  =  STARTING  LOCATION  OF  MASS  DENSITY 

2117  C  A(N8>  =  STARTING  LOCATION  OF  VECTOR  CONTAINING  THE  ACIUAL 

2118  C  NUMBER  OF  TEMPERATURE  POINTS  FOR  EACH  MATERIAL  TABLE 

2119  C  A ( N9 )  =  STARTING  LOCATION  OF  MATERIAL  PROPERTY  TABLE 

2120  C  A(N10)  =  STARTING  LOCATION  OF  DIRECTION  COSINE  ARRAYS  FOR 

2121  C  MATERIAL  ORIENTATION  AXIS 

2122  C  A ( N 1 1 )  =  STARTING  LOCATION  OF  SUREACE  LOAD  FACE  NUMBERS 

2123  C  A(N12)  =  STARTING  LOCATION  QE  SURFACE  LOAD  CODE  TYPES 

3124  C  A ( N 1 3 )  =  STARTING  LOCATION  OF  PRESSURE  WORKING  ARRAY 

2125  C  A ( N14 )  =  STARTING  LOCATION  OF  OUTPUT  REQUEST  LOCATION  SETS 

2136  C  A(N15)  =  STARTING  LOCATION  OF  VECTOR  CONTAINING  THE  ACTUAL 

3127  C  NUMBER  OF  REQUESTED  OUTPUT  LOCATION  IN  EACH  OUTPUT  SET 

2128  C  A(N16)  =  STARTING  LOCATION  OF  ELEMENT  STIFFNESS  MATRIX 

2129  C 


2130 

50  N6  = 

N5  + 

NUnNP 

2131 

N7  = 

N6  + 

NPAR ( 3 ) 

2132 

N8  = 

N7  t 

NPAR ( 3 ) 

2133 

N9  = 

N3  + 

NPAR ( 3 ) 

2134 

N 1 0 

22: 

O 

-4- 

NPAR (3)  i 

( 

NP AR ( 4 )  A  13 

2135 

Nil 

=  N 1 0 

t  NPAR ( 5 ) 

A 

9 

2136 

N12 

=  Nil 

+  NP AR ( 6 ) 

2137 

N13 

=  N 1 2 

+  NP AR ( 6  ) 

2138 

N 1 4 

=  N13 

+  NPAR ( 6  ) 

A 

7 

2139 

N15 

=  N 1  4 

+  NPAR ( 8 ) 

A 

7 

3140 

N16 

=  N15 

t  NP AR ( 8 ) 

2141 

N17 

=  Nib 

+  NPAR ( 7 ) 

A 

189 

2142  C 

2143  IF (N17.GT.MT0T )  CALL  ERROR ( N1 7-MTQT ) 

2144  C 

2145  C  PROCESS  ELEnEwT  DATA,  AND  GENERATE  ELEMENT  MATRICES 

2146  C 

2147  CALL  THDFE  ( A ( rtl; , A ( n2 ) , A ( N3 ) , A (N4 ) , A ( N5 ) , A(N6 ) , A (N7 ) , A ( NS >  , A ( N9 

2143  1  A  N 1 0  )  ,A(Nll )  ,  A  ( N 1 2 ) ,  A  ( N 1 3 ) ,  A  ( N 1 4 )  ,  A  ( N 1 5 )  ,  A  ( N 1 6  .■  , 

2149  2  NPAR ( 2 ) ,NPAR(3j ,NPAR(4> ,NPAR(5) ,NPAR(6) , NPAR ( ? >  , 

2150  3  NPAR(b)  ,NPAR(9)  ,NPAR( 10) ,NUMNP) 

2151  C 

2153  RETURN 

2153  C 

2154  C  RECOVER  ELEMENT  STRESSES  (STATIC  CASES  ONLY) 

2155  C 

2156  500  WRITE  (34,200  1  ; 

2157  NUME  =  NPAR ( 2  j 

2158  C 

2159 

2160  501 


read  ( 5  ,  A  i  nil, nuu 
r  g  r  m  j  t  j  1 5  > 


ci  ri  i-i  ri  >•  i  <"i  r  1  "i  ci  r  i  ci  n  n  •  riri  ri  ci  ri  •  i  n  <-» 


2 1  o  1  x  f  ( n  1 1 . 1  e .  0 )  ri  1 1-1 

21u2  if (nuu.le.O)  nuu=mj»ie 

21  b3  DO  800  hrt=l,NUHE 

21G4  C 

21G5  C 

1GG  CAAA  STRESS  PORTHOLE 

lb?  CALL  STS3C  ( A ( N1 )  ,  A  \  N3 )  ,  NEQ  ,  0 ) 

163  IF (NIOSV .EQ .  1 ) 

lb 9  AWSITE  (NTIO)  NS 

170  CAaa 

171  C 

172  IE  (NS. El).  1 )  GU  TU  800 

173  L 

174  C-  WRITE  (34,5000; 

175  C 

17b  DO  700  L-LT , LH 

177  C 

178  C 

179  CALL  STRSC  <  A ( N1 ) , A ( N3 ) ,nEQ , 1 ) 

180  LOC  =  NS/G 

181  K 1  =  -5 

182  C 

183  DO  GOO  N=1 (LOC 

184  K1  =  K1  +  G 

185  K2  =  K1  +  5 
13G  C 

187  if  xum.ge.nll .  and.  win.  le.nuu)  then 

188  IF(N.EQ.l)  WRITE  (34,3001  )  MM,L,N,  (SIG(  I) ,  I=K1  ,K2) 

2189  IF(N.GT.l)  WRITE  x  3  4 ,  400 1  )  N , ( S  IG ( I ) , I  =  K1 ,K2) 

2190  end  if 

2191  C 

2192  C AAA  STRESS  PORTHOLE 

2193  IF ( N103V. ED . 1 ) 

2194  AURITE  (NTIO)  nn , L , N ,< S lu x  l ),  I- K 1 , K2 ) 

2195  C A  A  A 

219G  GOO  CONTINUE 

2197  L 

2198  C-  WRITE  (34,5000) 

2199  C 

2200  700  CONTINUE 

2201  800  CONTINUE 

2202  RETURN 

2203  C 

2204  C  FORMATS 

2205  C 

220b  1000  FORrtAT  (53H121  -NODE  bOLID  ELEMENT  INPUT 

2207  1  10HD  A  T  A  ,  /  /  38H0CUNTR0L  INFORMATION  ,  /  i 

2203  1001  FORMAT  USHOERkUR  DETECTED  WHILE  PROCESSING  MASTER  ELEnENT  , 

2209  1  12HC0NTR0L  CARD,  '  /  1  uX  ,  1 H (  ,  1 0  15 , 1 H )  , / 1 X  > 

2210  1002  FORMAT  v32H  NO  3,  D  SOLID  ELEMENTS  SP EC  IF  IED , / 1 X ) 

2211  1003  FORMAT  ( 23H  NO  MATERIALS  REQUESTED,  /  IX) 

2212  1004  FORMAT  ( 49H  MAXIMUM  NUnbER  OF  NUDES  MUST  PE  GE.8  .AND.  LE.21, 

2 2  1  8  1005  FORMAT  v  4  2  H  INTEGRATION  ORDER  n b j T  PE  G E  .  2  .AND.  L E  .  4  ,  1 

2214  2001  FORMAT  (54H121  -NODE  SOLID  ELEMENT  3  T  K  E 


1,  -  4  ) 


2215  a  a 

2216  A23H  ELEMENT  LOAD  LOCATION, 9X,6HSIG- XX, 9X,6HSIG-YY,9X,6HSIG -22, 

2217  3  9X,6HSIG-XY , 9X , OHS  IG-YZ ,9X ,6HS  IG-ZX , //IX ) 

2218  3001  EORMAT  ( 18, 16, 19.6E15.6) 

2219  4001  EORMAT  (  14X,  I9.6E15.6) 

2220  5000  EQRMAT  (  /  ; 

2221  C 

2222  END 

2223  C &=================—======================================= ========== 

2224  SUBROUTINE  SSLAU  ( D , E, TEMP , DCA,KAXES, KMAT ,NEL , DUM , ALPHA > 

2225  C 

2226  C  CALLED  BY  :  IHDFE 

2227  C 

2228  IMPLICIT  REALAS ( A-H , 0-2 ; 

n  oog  £ 

2230  C  THIS  ROUTINE  FORMS  THE  STRESS-STRAIN  LAW  IN  MATERIAL  COORDINATES 

2231  C  ( X 1 , X 2 , X 3 )  AND  TRANSFORMS  THE  MATERIAL  SYSTEM  LAU  TO  GLOBAL 

2232  C  COORDINATES  (X,Y,Z). 

2233  C 

2234  DIMENSION  D ( 6, 6 ) , E(12 ) , IEMP(6,6 ) , BCA( 3,3 ) , IPRM ( 3) ,BUM(6 ,6 ) , 

2235  1  ALPHA ( 6 ) 

2236  C 

2237  DATA  IPRM  /  2,3,1  / 

2238  C 

2239  C  FORM  THE  DIRECT  STkAIN  PARTITION  OF  THE  STRAIN-STRESS  LAU  IN 

2240  C  MATERIAL  COORDINATES  (X1,X2,X3) 

2241  C 

2242  DO  20  1=1,3 

2243  ALPHA! I)  =  E(  1  +  9) 

2244  ALPHA (  1  +  3 )  =  0.0 

2245  IF < E <  D.GI.1.0E-08)  GO  TO  15 

2246  WRITE  (33,3000;  1,1, KMAT , NEL 

2247  STOP 

2248  3000  FORMAT  ( 23HQERKQRAAA  MODULUS  E(,2I1,16H)  FOR  MATERIAL  ( ,  13 , 

2249  1  14H)  IN  ELEMENT  ( ,  15 , 1  OH )  IS  ZERO.,  /  IX) 

2250  15  TEMP (  1,1;  =  i.O/E<  I) 

2251  20  CONTINUE 

2252  C 

2253  TEMP (1,2)  =  -t ( 4 ; A  TEnP<2,2) 

2254  TEMP ( 2,1)  =  TEnP ( 1 , 2  > 

2255  TEMP (1,3)  =  -E(5)A  TEmP(3,3) 

2256  TEMP (3,1;  =  TEnP(l,3; 

2257  TEMP(2,3)  =  -E(6)A  TEMP(3,3) 

2258  TEMPO, 2;  =  TEmP(2,3) 

2259  C 

2260  C  INVERT  THE  DIRECT  STRAIN  PARTITION 

2261  C 

2262  DO  60  N=l,3 

2263  X  =  1 . O/TEnP i N , N ; 

2264  DO  30  J  =  l,2 

2265  30  TEMP(N,J/  =  -  TENPIN, 3, a  X 

2266  C 

2267  DO  50  1=1,3 

2268  IF (N. Ed.  I;  60  TO  56 


b  -  4  2 


i . 

1 

«  W ■*  W  W 

^  ^  WIT*  u 

V  r>  -Ji  V  \w  WLVrjp 

- X 

A 

A 

Du  40  3=1,3 

3 

£ 

|  2270 

IF(N.EQ.J)  GO  TO  40 

A 

n  2271 

TEMP (1,3)  =  TEttPt  1, J J  +  TErtP«  I , H >  A  TEHP<  N , J ) 

3 

r  777  O 

40 

CONTINUE 

n  7072 

50 

TEMPI  I , N )  =  TEMPI  I,N»  A  X 

a 

d  2274 

C 

V  2275 

TEMP(N,N)  =  X 

SS 

60 

CONTINUE 

3 

!  22"3 

FORM  THE  CuMPLETE  STRESS-STRAIN  LAW  IN  MATERIAL  COORDINATES 

u 

K-fj 

<  227  9 

c 

5| 

.  2230 

DO  °0  1=1,6 

.7 

■  228i 

DO  70  3=1,6 

k  -262 

70 

D (  I , J  )  =  0.0 

v-H 

1  2283 

C 

2-j 

'  2284 

DO  80  1=1,3 

f  1 

y  2285 

DO  80  3=1,3 

'»  2286 

60 

D(  1,3)  =  IEMP <.  lth 

£ 

2287 

C 

2288 

0(4,4)  =  E ( 7 ) 

1  2239 

(5,5)  =  E  ■.  9  ;• 

£ 

l  2290 

D(6 ,6)  =  E ( 8 ) 

U 

2291 

C 

N  7  7  q  n 

c 

TRANSFORM  THE  material  LAW  tu  global  COORDINATES  < X , ¥ , Z ) 

K  2293 

c 

‘3 

C  2294 

IF (KAXES.LT . 1 )  RETURN 

,v 

I  2295 

c 

.  -J 
2-8 

■  229b 

c 

TRANSFORMATION  BETWEEN  MATERIAL  STRAINS  AND  GLOBAL  STRAINS 

2297 

c 

;  v 

[■  2298 

DO  100  11=1,3 

1-;-: 

r!  2299 

12  =  IPRm(II) 

w 

C  2300 

DO  90  31  =  1,3 

1 V 

|  2301 

32  =  IPRrtUl) 

u*? 

2302 

TEMP (  1 1  ,31  )  =  DCA(31 ,  11  /ADCAU1  , 11 ) 

-0  0  J 

T£MP(I1+3,31  )  --  DCA(J1  ,  1 1 )  aDC  A  i  3  1 ,  121  A  2.0 

Vi 

>.  2  30  4 

TEMP ( 1 1  ,31+31  =  DCA(31,ll)ADCA(32,Il) 

V 

^  _  j  0  5 

TCMP(  11  +  3, J1  + 7  '  =  DC A i J 1 ,  1 1 ) A  DC  A ( J  2 , 1 2 )  + 

■ 

~  j  0  b 

1  LiCA'.  J2 ,  Ill  aDCA<  J1 ,  12) 

■  2307 

90 

CONTINUE 

5  23  0  8 

100 

CONT  INUE 

0  2309 

C 

!’  2310 

C 

ROTATE  THE  MATChlAL  LAW  TO  THE  GLOBAL  SYSTEM 

;  2311 

C 

'j 

.*  2312 

DO  130  1=1,6 

■  2313 

DO  120  3=1, G 

V 

'!  2214 

X  =  0.0 

-.'I 

2315 

DO  110  K  =  1  ,6 

2316 

110 

X  =  X  +  D(  I , K  )  ATLnP  U. ,  J 

• 

,**  - 

:  j  j  1 7 

120 

DUM ( I , 3 )  =  7 

.n 

2318 

130 

CONTINUE 

!  2319 

C 

2  **, 

2320 

DO  160  1=1,6 

232  1 

DO  150  3=1,6 

2  r  J  2 

X  =0.0 

■ 

R 

b  ‘1  .  / 

.V 

*  -VA  ...vwWk 

:«la£kla 

V.V.V,- -  ,/.•,<  .  »r„  .  rf-,  .-  r  {  «  <- 

•* 

3 

IJ  t J  CJ  tJ  tJ 


323  DO  1 40  K  =  l,b 

324  140  X  =  X  +  TEnKK,  I)*DUrt(K,  J) 

325  D  ( I ,  J )  =  X 

326  DU,  I)  =  X 

327  150  CONTINUE 

2328  160  CONTINUE 

°3°0  C 

2330  C  TRANSEQRn  THE  EXPANSION  COEFFICIENTS  FROM  rtATERIAL  COORDINATES 

2331  C  TO  GLOBAL  COORDINATES 

2332  C 

2333  C 

2334  DO  200  1=1,6 

2335  X  =  0.0 

2336  DO  190  K=l,3 

2337  190  X  =  X  +  TErtMK,  IlAEiK+9) 

2338  IFt  I.GT.3>  X  =XA2.0 

2339  200  ALPHA (  I )  =  X 

2340  C 

2341  RETURN 

2342  END 

2343  C *=========== ==============================================“==== ======== 

2344  SUBROUTINE  STRESS ( STR , B, D , NEGB , LB, LL,NEQ, NBLOCK ) 

2345  ThPL IC  IT  REAL A8 ( A-H , 0  —  Z ; 

2346  C 

2347  C  CALLS:  ELTYPE 

2348  C  CALLED  BY:  SOLEG 

2349  C 

2350  DIMENSION  D (NEQ , LB >, B ( NEOB , LL> , STR ( 4 , LL) 

2351  COMMON  /ELPAR/  NPAR ( 1 4 ) , NUMNP , MBAND r NELTYP , N 1 , N2 , N3 , N4 , N5 , nTOT , nEQ 

2352  COMMON  /JUNK/  LT , LH  r IF  ILL ( 428) 

2353  COMMON  /EXTRA/  MODEX , NT3 , N 1 OSU , NT  1 0 ,  IF ILL2 ( 12 > 

2354  C 

2355  READ  <8)  STR 

2356  NT= ( LL- 1 ) /LB  U 

2357  LH=0 

2358  C  *  A  A  STRESS  PORTHOLE 

2359  IE(NlOSV.EQ.l) 

2360  AURITE  (NT10)  NELTi P  rNT 

2361  C 

2362  DO  1000  11=1, NT 

2363  C 

2364  LT  =LHt 1 

2365  LLT=1-LT 

2366  LH=LTtLB-l 

2367  IF ( LH . GT . LL )  LH  =  LL 

2368  C 

2369  C  MOVE  DISPLACEMENTS  INTO  CORE  FOR  LB  LOAD  CONDITIONS 

2370  C 

2371  REWIND  2 

2372  CAAA  STRESS  PORTHOLE 

2373  IFINlOSV.EG.n 

2374  AURITE  (NT10)  LT ,  LH 

2375  NQ=NEOBakBLOCK 

2  376  DO  200  NN  =  1 , NBLOCK 


b  -  4  4 


tJ  L.J  tJ 


2377 

READ  ( 2  >  h 

2378 

N=NEQB 

2379 

IF  (NN.EO.l)  N 

2380 

NQ=NU-NEOB 

2381 

DO  200  J  =  1 , N 

2382 

I=NQ+ J 

2283 

DO  200  L=LT , LH 

2384 

K  =  L  *■  L  L  T 

2335 

200  D \ I , K ; =  B ( J , L i 

2336 
- j8 7  C 

LK  =  LH-LT  «■  1 

2388  C 

2389  C 

l  A  L  C  U  L  A  T  E  l  T  E  E 

'390 

’391 

1392 

2393  C  A 

2394 

2395 

2396 

2397 

2398 

2399  1 

2400  C 

2401 

2402 

2403  C4 

2404 

2405 
240G  C 
2407  C 

403  C 

409 

410 

2411 

2412  C 

2413 

2414 

2415 

2416 

2417 

2418 

2419 

2420 

2421 
24  22 

2423 

2424  C 

2425 
24  26 

2427 

2428 

2429 


C  CALCULATE  2TEE5SE2  F3R  ALL  ELEMENTS  FOR  LB  LOAD  CONDITIO 
C 

REWIND  i 

DO  1000  n  =  1 ,  N  E  L  T  i'  P 
READ  ( 1  )  NEAR 
Ca A*  STRESS  PORTHOLE 
IF  <  N10SV .  EC< .  1 1 
AURITE  (n'flO>  nPAR 
M  T  Y  P  E  =  N  P  A  k  •  1 
NPAR  ( 1 ) =0 

CALL  ELTYPEi M'H  PE/ 

1000  CONTINUE 
C 

RETURN 

END 


SUBROUT  IN E  STRSC  3TR  ,  D ,  NEu  , NTAG ) 

IMPLICIT  RtnLAS ( A-H , 0-2 ) 

CALLED  hr.  TRUSS,  BEAM,  PLANE,  THREED,  SHELL ,  BOUND,  PIPE 
DIMENSION  SIR ( 4 , 1 ) , D ( NEQ ,  1 ) 

COMMON  JUNK/  LT ,  LH ,  L ,  IPAD , SG ( 20) , SIG( 7 ) , EXTRA( 186  > 
COnnON  /En/  NS ,ND , B ( 42 , 63 ) , T I ( 42, 4 ) , LM (63) 

IF  (  N T A b  0  i  A 0  TO  3 0 0 

LL  =  L-LT  <- 1 
DO  300  I - i , NS 
3  G  k  I !  -  0 . 0 
DO  300  3=1,4 

3 0 0  S G  (  I )  - o ij  (  I  >  t T  I 1,3  •  ajTR  3  ,  L  ) 

DO  500  3-1  , N D 
J  j  -  LM (  1) 

I F  ( J  J  .  E  G  .  0  .  GO  TO  500 
DO  400  1=1, NS 

400  56  (  I  /  =S6  Iitfed,  iJAlu  JJ,LL) 

500  CONTINUE 
GO  TO  900 

800  READ  (1/  ND,r<3,  .  Lru  l>  ,  I-1,ND)  ,  (  (  B  (  I ,  J  )  ,  1=  1 ,  NS  )  ,  J  =  1 ,  ND  . 

1  ( ( T I ( I, J ) , 1=1 ,NS) , J=1 ,4) 

9lu  RETURN 


2431  Ci™  =  ====«  ===  =  =  =  =  =  =  =  =  =  =  =  ~  =  =  =  =  =  =  =  =  =  =  ™==========  =  =  ===  =  =  =  ”~  =  =  =  =  =  =  = 

2432  SUBROUTINE  3T8R21  <  E , B f  S , XX , N009 , H, P , S IGDT ,DELT ,  FT f  DL , XM , NEL  f  NO , 

2433  1  IELD,  IELX  ,KTL,kGL ,KMS,N INT ,NINIZ, WIDEN, MSDt’N ) 

2434  C 

2435  C  CALLED  BY  :  THDEE 

2436  C  CALLS  :  DER3DS 

2437  C 

2438  IMPLICIT  REALAS ( A-H , U-Z ) 

2439  C 

2440  C 

2441  C  . 

2442  C  . 

2443  C  . 

2444  C  .  HEXAhEDRAL  CURVILINEAR  THREE-B IhENS  iCNAL  ELEMENTS 

2445  C  . 

2446  C  .  ISOPARAnETkIC  Ok  SUBPARAnETR IC 

2447  C  . 

2448  C  . 

2449  C  . 

2450  C 

2451  C 

2452  C 

2453  DIMENSION  E ( 6 , 1 ) , B ( 6 , U , S ( 63 f 1 ) , XX ( 3, 1 ) f N0B9 ( 1 ) f H ( 1 ) , P Q, i  . 

2454  1  3IGDT<l>,BELT(l>,FT(l),BLU)fXH(l)f&(9) ,SDI ( 6 ) , BV - o 3  ;  , 

2455  2  W ( 3 , 3 ) , IPERn ( 3, 3) , KDX ( 3) ,LDXI 3) 

2456  C 

2457  COMMON  /GAUSS/  xG ( 4 , 4 ) , WGT (4,4) 

2458  C  REAL  MSDEN 

2459  REALA8  MSDEN 

2460  C 

2461  DATA  IPERn  /  1,4,6,  4,2,5,  6,5,3  / 

2462  C 

2463  VOL  =  0.0 

2464  C 

2465  C  DETERMINE  IE  THE  nATERlAL  IS  ORTHOTROPIC  (ISO. EG. 1,  IS0TR6PI6,' 

2466  C 

2467  DUM  =  0.0 

2468  DO  20  1=4,6 

2469  J  =  1-1 

2470  DO  20  K=1,J 


2471 

20 

DUM  = 

DUM 

+  D 

A  6  S  i  E  <  K  ,  I 

i  > 

2472 

ISO  = 

1 

2473 

IF ( DUM 

.GT 

.1. 

OE-6)  ISO 

=  0 

2474 

IF (  ISO 

.EQ 

.0) 

GO  TO  24 

2475 

DO  22 

1  =  2 

,3 

2476 

DUM  = 

DUM 

+  DABS ( E (  I 

,1  > 

-E( I- I , 

I- 

D) 

2477 

22 

DUM  = 

DUM 

+  D  A  B  S ( E (  1  +  3 

,  1  +  3) 

-E( 1+2, 

1  + 

2) ) 

2478 

DUM  = 

DUM 

+  D 

ABS  i  E  (  1 

,2  )  - 

E  ( 2  , 

3 

) ) 

2479 

DUM  = 

DUM 

+DABS(Ei2 

,3  ) 

-  E  ( 3 

,1 

) ) 

2480 

IF  (  DUM. 

ST. 

1 .OE-6  ) 

IS0  =  0 

2481 

24 

CONTINUE 

2482  C 

2483  C 

2484  C 


VOLUME  INTEGRATION  LQuP 


V"  V 


2485  C 
2  486  C 

2437  DO  10  LX=1,NINI 

2488  DO  10  LI-1  ,  N  I N  T 

2489  £1  =  XG ( LX  ,  N  INI ) 

2490  E2-XG1  L'f  ,N  INI ) 

2491  DO  10  L 2 - 1 , N INTZ 

2492  £3=XG<LZ,NINTZ> 

2493  C 

_  4  9  4  WT  =  WGT  i  La  f  n  xNT »  *UuT  l  L  i  ,  N  In!  AUGT  ( LZ ,  N  INTZ  ) 

2  495  C 

2490  L  EVALUATE  nT:,A  IN-D  ISPLACEnENT  MATRIX  B  AND  JACOBIAN  DETE.-.n  ».»An  1 

2  4  9  n  C 

2  498  CALL  D  L  K  2  b  i  '  rt  E  L  ,  a  ,  DtDET,EllE2,E3,NUb9,H,P,IELB,lELX) 

2499  C 

2500  C  ADD  CONTRIBUTION  TU  ELEMENT  STIFFNESS 

2501  C 

1502  FACT  =  WTA  DEI 

2503  FACT2  =DSOKT  •.  FACT ) 

2504  C 


2505 

DO  25  I-  t ,  1ELD 

25  OG 

K  3  =  3  A  I 

2507 

K2  =  K3-1 

250S 

K 1  =  K2-1 

2509 

B  V  ( K 1 )  =  B  v  1 ,  N 1  >  A 

F  A  C  T  2 

2510 

B  V ( K 2 )  =  Bi2,K2)A 

FACT2 

2511 

B  V  ( K  3  )  =  B  i  3  ,  K  3  )  A 

FACT  2 

2512 

25  CONTINUE 

2513  C 

2514  DO  30  1=1, ND 

2515  DU  30  J=I,ND 

25 1G  30  S(I,J>  =  S'.  I,J>  t  b'.'lli*  BO (  J  ) 

2517  C 

2518  C  ACCUMULATE  ELEMENT  VOLUME 

2519  C 

2520  VOL  =  VOL  *  FACT 

2521  C 

2522  C  COMPUTE  GRAVITY  LOADS 

2523  C 

2524  IF ( KGL . EG . 0 )  GO  Tu  150 

2525  DO  130  K  ■=  1 ,  I E L D 

252G  130  DLU  )  =  DL'.K)  t  II  (  K  ;  aEACT  A  WIDEN 

2527  C 

2523  C  COMPUTE  THERMAL  LOADING  NODE  FORCE  VECTOR 

2529  C 

2530  150  IF \ KT L . Eu  .  -j i  GO  TU  190 

2531  C 

2532  C  1.  ELEMENT  TEMPERATURE  DIFFERENCE  AT  THIS  INTEGRATION  PuInT 

2  5  3  3  C  (  R  ,  S  ,  T  i 

2534  C 

2535  DT  =  0.0 

253C  DO  1  GO  )  -  1  ,  1ELD 

2537  1  GO  DT  -  DT  »  N't  .*  BELT  1/ 

2533  DT  =  DT a  tACT 


INITIAL  STRESSES  AT  (R,S,T> 


3,V V-  -  •  .  •  .T" 


2539  C 

2540  C 

2541  C 

2542  DO  170  K=l,ii 

2543  170  SDT(K)  =  SIGDT ( K ) ALT 

2544  C 

2545  C  3.  NODE  FORCES 

2546  C 

2547  DO  180  K=1,NB 

2543  DO  175  1=1,6 

2549  175  FT ( K )  =  FT  C  K  i  +  fiiI,k)A  SDT(I) 

2550  130  CONTINUE 


2551  C 

2552  C  UR  ITE ( 23 , a  >  '  DT ,  BELT DT , (BELT (K  > ,K=l , IELD ) 

2553  C  UR  ITE ( 23 , A  >  '  SIGDT  ' , (SIGDI(K) ,K=1 ,6) 

2554  C  UR  ITE ( 28  ,  A  )  '  FT  - ' 

2555  C  UR ITE ( 28 , A )  ( FT ( K ) , K- 1 ,6  ) 

2556  190  CONTINUE 

2557  10  CONTINUE 


2558 

C 

2559 

DO 

35  1-1,2 

2560 

IC 

=  ND-I 

2561 

DO 

35  J=1,IC 

2562 

M  = 

J+I 

2563 

35  S(M,J>  =  su,n> 

2564 

C 

2565 

c 

COMPLETE  THE  K-flATRIX  UITH  APPROPRIATE 

2566 

c 

PLICATIONS  UF  THE  INTEGRATED  B(I)AEKJ) 

2567 

c 

2568 

c 

1.  TEST  FOR  MATERIAL  TYPE 

2569 

c 

2570 

IF ( ISO . EQ . 0 )  GO  TO  75 

2571 

c 

2572 

c 

A.  ISOTROPIC  MATERIAL 

2573 

c 

2574 

D 1 

=  E(lfl) 

1  C  7  C- 
«  ^  /  .J 

D2 

=  E  < 1,2a 

2576 

D3 

=  E  (  4 , 4  J 

2577 

c 

2578 

DO 

60  1=1, IELD 

2579 

K3 

=  3AI 

2580 

K2 

=  K  3  - 1 

2581 

K 1 

=  K2-1 

2532 

KO 

=  K 1  —  1 

2583 

DO 

60  J-  I, IELD 

2584 

L3 

=  3AJ 

2585 

L  2 

=  L3- 1 

2586 

LI 

=  L2-1 

2587 

LO 

=  Ll-i 

2588 

c 

2589 

IC 

=  0 

2590 

DO 

4011-1,3 

2591 

ft 

=  11+  TO 

2592 

DO 

40  J  J -  1  ,  J 

MATERIAL  CONSTANT  nULT 
ARRAY. 


cn  cn  cn  cn 


N  -  3  3  +  L  0 
IC  =  IC+  1 
D(  IC)  =  S(n,N j 
40  CONTINUE 


'1 

C 

8 

S  ( K 1 ,  L 1 )  =  0  ( 1 )  A  D 1 

+  '.0(5) 

+  D  ( 9 ) )  A 

9 

3  ( K  2  ,  L  2  )  -  0  (  3  )  A  D 1 

t  (0(1) 

*  0  ( 9 ) )  A 

0 

S(K3,L3)  =  0 ( 9  >  a  01 

t  (0(5) 

+  D  ( I  >  >  A 

1 

S(K1,L2;  =  0(2) A  02 

+  0  (  4  )  A 

03 

J, 

S ( K2 , LI )  =  0(4, 'A  02 

t  0  (  2 )  A 

03 

3 

3 ( K2  , L 8 ;  -  0(oi*  02 

+  0  ( 3  j  A 

03 

4 

S  ( K  3 ,  L  2 )  =  0(8  j  A  02 

A  0  u  ;  A 

03 

C 

J 

S ( K3 ,  L 1  >  -  0  ^  7.i  a  02 

►  0(2) A 

03 

S  (  K I ,  L  3  )  -  0  3  /  A  02 

r  0  (?)  A 

03 

n 

C 

0 

GO 

CONTINUE 

9 

c 

0 

GO  10  no 

1 

c 

o 

c 

B .  A N  1 2 U T K OF  i l 

nATER  IrtL 

3 

c 

4 

7  j 

00  100  1=1, IELH 

c 

n 

KO  =  3  A  1-3 

6 

DO  100  3=1,  IEL0 

7 

LO  =  3AJ-3 

8 

c 

9 

DO  80  11  =  1,2, 

0 

n  =  1 1  +  K  o 

1 

00  80  33  =  1  ,  J 

0 

N  =  3  3  *  L  0 

3 

W(  11,33)  =  v.n.ri. 

4 

30 

CONTINUE 

5 

L 

G 

00  100  K  =  1 ,  3 

7 

11  =  KO  +  I, 

8 

00  22  13  =  1  ,  3 

9 

82 

KDX  (  13  )  =  IPEkfi'  13  ,K  • 

0 

00  95  L  =  1 , 3 

1 

12  =  LOtL 

o 

00  S3  13=1,2 

3 

83 

L D X «:  1 3  j  =  I r E i< n ■  13,1  • 

4 

c 

j 

8  0  li  -  0  .  <j 

>8 

c 

7 

Du  90  1 1  =  1  ,  j 

8 

K  1  =  FOa  .11' 

9 

00  85  33  -1,3 

0 

K  2  =  L  0  A  •.  3  J 

1 

c 

1 

u  >J 

SUfi  =  GUn  *  u  1 1 ,  n 

■■  ■*.  L  K 1  ,  K  2 

;  > 

3 

90 

LONT  INUE 

4 

c 

c: 

J 

S  V  II,  .0,1 

2650 

C 

2651 

C 

2652 

C 

~o0  3 

C 

2654 

2655 

3656 

2657 

C 

2658 

c 

2653 

c 

26b0 

2661 

c 

2662 

2663 

2664 

2665 

c 

2666 

c 

2667 

2663 

2669 

c: 

2670 

2671 

2672 

2673 

2674 

c 

2675 

c 

2676 

c 

2677 

c 

2678 

2679 

c 

2680 

c 

2681 

c 

2682 

c 

2683 

c 

CONTINUE 

CONTINUE 

CONTINUE 


REELECT  FOR  SirtnETRi 

DO  COO  I  -  i ,  D 
DO  200  J  =  I ,  N  D 
S  (  J ,  I )  -  S  (  l ,  J 

CONSTRUCT  TOE  LunPED  MASS  MATRIX 

IF (KMS.EQ.O)  RETURN 

FACT  =  VOLA  nSDEN/  IELD 
DO  220  K= 1 ,  ND 
XM(K)  =  FACT 


RETURN 

END 

SUBROUTINE  THDFE  < ID , X , Y , Z , T , DEN , RHO , NIP , EE , 

1  DCA,NEACE,LT,PWA,LGC,MAXPTS,SS, 

2  NUME , NUMMAT  , MAXTP ,NGRTHQ , NDLS , MAXNOD , 

3  NOPSET, INTRS, IN1T,NUMNP) 

C 

C  CALLED  BY  :  S0L21 

C  CALLS  :  INP21 , CAL6AN,SSLAU,BER3DS,SI8R21 , FACEPR 

C 

IMPLICIT  REALA8  i  A-H,  0-2 ) 

C 

C  ROUTINE  FOR  THE  STIFFNESS,  MASS  AND  STRESS  MATRIX  GENERATION 
C  FOR  THE  8-T0-21  NODE  ISO- ( Oft  SUB ) -P ARAMEIR IC  ORTHOTROPIC 
C  HEXAHEDRON. 

C 

COMMON  /JUNK/  XLF(4>  ,YLF(4>  ,ZLF(4> , TLF ( 4 ) , PLF ( 4 )  ,FILLi(22)  ,02^3) , 

1  F ILL2(  12) , LSI  4 i ,KLS( 4 ) ,NOD( 21 ) , N0D9M( 13 ) , K 0 D < 21 ) , 

2  NREAD , TAG , E ( 12 ) 

COMMON  /ELPAk/IFILL3(I5) , MB AND 

COMMON  /EM/  SDT<42,63) , SF<  42, 4 ) , NS , ND , LM ( 63 ) 

DIMENSION  RF ( 63 , 4 ) , XM ( 63 ) ,  D !  6 , 6 ) ,TEMP(6f6) ,DUM(6,&) , 

A  ALPHA! 6) , XX <3, 21 ) , B ( 6 , 63 ) , H < 21 ) , P ( 3 , 2 1 > , S  IGDT ( 0  ) , 

A  DELT(21) ,FT<&3) , DL(21) ,FL<63) ,L0C0P<7) ,VI$<6> 

C 

COMMON  /GAUSS.'  XG ( 4 , 4 > , UGT ( 4 , 4 ) , SIPIS ( 27 , 3 ) 

COMMON  /DYN  /  IF ILL4 ( 1 1 ; , NDYN 
COMMON  /EXTRA/  M0DEX.NT8 
C 

DIMENSION  ID(NUMNP,1) ,X(1),Y(I) ,Z(1) rT(I) , DEN ( 1 ) , RHO ( I )  , 

1  NIP  ( 1 )  ,£E(MAXTP,13f  l)fDCA(  3,3,1)  ,NFACEm  ,LT(1>  , 

2  PU A ( 7 , 1 ) , LUC ! 7 , i ) .MAXPTSIl ) . S3  : 63,1 > 


f  * 


2701  C 


2702 

DATA  TGI 

,  TG2 

2703 

STPTSi 1 , 1  )-l . 

2704 

STPTS \ 2 , 1 

i=-l. 

27  05 

STPTS(3, 1 >  =  -l . 

2706 

STPTS14, 1 

!  =  L. 

2707 

STPTS(5,1>=1 . 

2708 

STPTS ( 6 , 1 )  =  - 1 . 

2700 

STPTSi 7 , 1 )  =  - 1 . 

2710 

STPTS (8,1 

i  -  i . 

2711 

STPTS ( 9 , 

>=u. 

2712 

STPTSi  10 

n 

2713 

STPTS (11 

1  > = 0 . 

2714 

STpTP< 12 

1  —  1 . 

2715 

STPTS 113 

1 )  -0 . 

2716 

STPTSI 14 

1 )  -  - 1 

2717 

STPTS  i  15 

1  >--u. 

2718 

STPTS i 16 

1  ;  -  i . 

2^19 

STPTS ( 17 

1  f  =  1 . 

2720 

STPTS i  18 

1  ;  --1 

2721 

STPTS ( 19 

1 )  =  ~  1 

'^71 

STPTS  i.  20 

11=1. 

2723 

STPTS (21 

1  -0 . 

2724 

STPTS ( 22 

1.-1. 

2725 

STPTS (23 

1>=-1 

2726 

STPTS  <  24 

1 )  -  0  . 

1727 

S  T  P  T  S  ( 2  5 

11=0. 

2728 

STPTS i 26 

r>  =0. 

2729 

STPTSi  27 

1  /  -0 . 

2730 

STPTSI 1 , 

2731 

STPT3(2f2;=l . 

2732 

STPTS  <.  2 , : 

2)=-l. 

2733 

STPTS ( 4 , 

2  >  1 . 

2734 

STPTSI 5 , 

2  >  =  1 . 

2735 

STPTSi 6,2; -1 . 

273o 

STPTS ( 7 , 

2>  =  -l. 

2737 

STPTS! 3 , 

2 )  -  - 1 . 

2738 

STPTS  9 , 

2/  -1 . 

2739 

STPTSllo 

,  2 )  =0 

2740 

STPTS ( 1 1 

,2)=-l 

2741 

STPTS  1 2 

,  2  >  -  0 

21'  42 

STPTS  13 

,  2  ;  =  l 

2743 

STPTSI  14 

,  2  /  -0 

2744 

SIPTSi 15 

,2  >=- 

2745 

STPTSI 16 

,2>=0 

2746 

STPTSI  17 

,  2  >  - 1 

27  47 

STPTS  C 18 

,  2  )  =  1 

2748 

STPTS ( 1 9 

(2i-- 

27  49 

STPTS ( 20 

f  2 /  =- 

2750 

STPTSi 21 

,21=0 

2751 

STPTS  ( 22 

,  2  )  =0 

275.: 

STPTSi23 

,2)-Q 

27  53 

STPTSi 24 

,  2  >  - 1 

2754 

STPTS ( 25 

,  J  > - 

:«w 


'  n  C  c 

„  ✓  ^  V1 

STP1S (26,2>— 0- 

2756 

5TPTS<27,2;=0. 

2757 

STPTS (  1 , 3  >  —  1  - 

2758 

STPTS (  2, 3 ) =1 . 

2758 

STPT'3  (  3 , 3 )  =  1  ■ 

2760 

STPTS (  4 , 3 ) - 1  • 

2761 

STPTS (  5,3>=-l. 

2762 

STPTS (  6 , 3 >  =  - 1 . 

^762 

STPTS (  7,J/=-l. 

2764 

STPTS (  S , 3 ) --1 . 

2765 

STPTS (  9,3)=  1. 

2766 

STPTSt 10,3;=  1. 

2767 

STPTS (11,3)=  1. 

276S 

STPTS (12,3)=  1. 

2769 

STPTS(13,3)=-i • 

2770 

STPTS( 14 , 2 ) =-l . 

2771 

STPTS ( 15 , 3) =-l . 

2772 

STPTS ( 16,3)=- 1. 

2773 

STPTS ( 17 ,3>=0 . 

2774 

STPTS ( 18 , 3 ) =0 . 

2775 

STPTS  < 19 , 3 )=0 . 

2776 

STPTS ( 20 , 3 ) =0 . 

2777 

STPTS ( 21 , 3 ) =0 . 

2778 

STPTS ( 22 , 3 ) =0 . 

2779 

STPTS ( 23 , 3 ) =0 . 

2780 

STPTS( 24 , 3 ) =0 . 

2781 

STPTS(25,3)-0. 

2782 

STPTS ( 26 , 3 ) =1 . 

2733 

STPTS ( 27 , 3) =-l . 

2784 

XG  < 1 , 1 )  = 

0. 

2785 

XG(2, 1 )  = 

0. 

2786 

XG(3, 1 )  = 

0. 

2787 

XG ( 4 , 1 )  = 

0 . 

2738 

XG ( 1 , 2 )  = 

-.577350269189600 

2789 

XG( 2 , 2 )  = 

.577350269189600 

2790 

XG ( 3 , 2 )  = 

0. 

2791 

X  G  (  4 , 2 )  = 

0 . 

2792 

XG ( 1 , 3  )  = 

-.774596669241500 

2793 

;<G<2,3)  = 

0. 

2794 

XG(3,3)  = 

.774596669241500 

2795 

XG ( 4 , 3 )  = 

0. 

2796 

XG ( 1 , 4 )  = 

-.a6iij6oil5S4100 

2797 

XG ( 2 , 4 )  = 

- .339981043534900 

2798 

XG(3,4)  = 

.339981043584900 

2799 

XG(4,4)  = 

.361136311594100 

2800 

UGT (1,1) 

=  2.0 

2801 

UGT (2,1) 

=  0.0 

2302 

UGT (3,1 ) 

=  0.0 

2803 

UGT (4,1) 

=  0.0 

2804 

UGT (1,2) 

=  1.0 

2Uyj 

UGT (2,2) 

=  1.0 

2806 

UGT (3,2) 

o 

O 

II 

2807 

UGT (4,2) 

=  0.0 

2808 

UGT (1,3) 

=  .5555555555o56  00 

809 

WGT (2,3) 

=  .  3dbbbbo63Ucj  j  ) 

DO 

810 

WGT (3,3) 

juju j jw Jjw jjO 

DO 

811 

WGT ( 4,3) 

=  0.0 

812 

WGT (1,4) 

=  .3478546451375 

DO 

1813 

WGT (2,4) 

-  .0521451543025 

DO 

1814 

WGT (3,4; 

-  .  bj  J  1  1 

DO 

1315 

WGT i 4, 4) 

-  ,  j  * '  o  t/  ‘1 3  4  5 1 3  7 

DO 

:316  C 
1817 

NT8S0  = 

nuDEX 

2818 

2819 

2820 
2U21 
2822 

2823 

2824 


DO  10  1-4,0 
DO  10  3  - 1 ,  ^ . 


10  &(  I, J>  =  0.0 
Du  14  1-1,42 
DO  14  J-1,4 
14  SF  i  I , J ) -0. v 


2820  C 

2827 

2823 

2329  C 

2330  C 

2331  C 

2832 

2833 
2S34  C 
2835  C 


2843 

-844 

2845 

2840 

2847 

2848 

2849 

2850 
2051 

2852 

2853 

2854 

2855 
2850 

2857 

2858 

2859 
2800 
2861 
2802 


PRINT  ELEMENT  CONTROL  VARIABLES 


WRITE  (23, 3001  )  numE , mUMMAI , MAXlP  , NORIHO ,NDLS , MAXNOD , NCiP SC T  ,  InT 

1,-rrx 


READ  AND  CHECK  INPUT  UP  TO  THE  ELEhENT  DATA  CARDS 
CALL  INP21 


1 


i  NUnnAT  ,nAXTP ,  NQRTHO, NDLSf  NOPSEI  ,NT8SV  ,  nUmNP  . X , 
[ ,2, DEN, RHO,NTP, EE, DCA, NFACE.LT, PUA,lui ,nAApT 


READ  ELEMENT  DATA  CARDS 


2836 

2837 

C 

NREAD 

=  3 

3838 

IE ( MAXNOD . GT . 8 ) 

NREAD 

3839 

3840 

C 

WRITE  (23,3014) 

'  M= 

33  41 
2843 

IF ( MAXNOD. GT. 8) 
AWR1TE  (33,3016) 

d,i= 

NEL  =  0 

CARD  FOR  ELEMENT  NUMbER  ONE  ONLY 


READ  <5, 10yd)  INEL  ,  ND  IS  ,NXYZ,  HMAT  ,  MAXES  ,  IOP  ,  TZ  ,  KG  ,  NRS  I.'CL' ,  I INI 

1,  IREUSE ,  ( LS( I), 1=1,4; 

READ  (5,1009)  ( NUD (  I ) ,  1= 1 , NREAD ) 

IREUSE  =  0 

IF'  INEL.EG.l)  GO  TO  51 
WRITE  (33,4014;  INEL 
WRITE  (33,4014) 

STOP 


Ch^i)0  C  U  4\  nOL  U  *  i  I  l>  «  J 


50  READ  (5 , 1008  )  Ir<EL  ,  ND  IS ,  NX  I  Z ,  NflAT  .MAXES ,  IOP ,  TZ ,  KG ,  NRS  INI .  NT  INT 
1, IREUSE, (LS(  I) ,  1  =  1  ,4) 

READ  (5,1009;  ( NOD < 1 ) ,  I - 1 , NREAD ) 


LlVtl 


■'  V"  v'  ./  O  V  O  -- 


.  •.  Wk.  HJ  .  ^ 


DATA  ADMISSIBILITY  CHECH 

51  IF  ( ND  IS .  EQ .  0 )  NDIS  =  MAXNOD 
IF(NDIS.LE. MAXNOD)  GO  TO  5051 

URITE  (33,3015)  INEL , ND  IS , NXYZ , NMAT , MAXES , IOP ,TZ , KG ,NRS INT , NT  INI 
1 , IREUSE, (LS (I), 1=1,4) 

WRITE  (33,4015)  NDIS, MAXNOD 
STOP 

5051  IF (NDIS.GE.8)  GO  TO  52 
URITE  (33,4023)  NDIS 
STOP 

52  IF (NXYZ.EQ.O)  NXYZ  =  NDIS 
IE ( NXYZ. LE. ND IS )  GO  TO  5052 
URITE  (33,4016)  NXYZ, NDIS 
URITE  (33,4099) 

MODEX  =  1 
GO  TO  53 

5052  IF (NXYZ.GE.8)  GO  TO  53 
URITE  (33,4024)  NXYZ 
URITE  (33,4099) 

MODEX  =  1 

53  IF (NMAT.GE. I  .AND.  NMAT.LE.NUMMAT)  GO  TO  54 

URITE  (33,3015)  INEL, NDIS, NXYZ, NMAT, MAXES, IOP, TZ, KG, NRS INT, NT INT 
1,  IREUSE, (LS(I), 1=1, 4) 

URITE  (33,4017) 

URITE  (33,4099) 

MODEX  =  1 

54  IF (MAXES . LE .NORTHO )  GO  TO  55 

URITE  (33,3015)  INEL, NDIS, NXYZ, NMAT, MAXES, IOP, TZ, KG, NRS INT, NT INT 
1, IREUSE, (LS(I), 1=1, 4) 

URITE  (33,4018) 

URITE  (33,4099) 

MODEX  =  1 

55  IF ( IOP.GE.O  .AND.  IOP.LE.NOPSET)  GO  TO  56 

URITE  (33,3015)  INEL , NDIS , NXYZ, NMAT , MAXES , IOP , TZ , KG , NRS INT , NT  INT 
1, IREUSE, (LS(I>, 1=1, 4) 

URITE  (33,4019) 

URITE  (33,4099) 

MODEX  =  1 

56  DO  57  1=1,4 

IF ( LS ( I > . GE . 0  .AND.  LS (  I)  .LE.NDLS)  GO  TO  57 

URITE  (33,3015)  INEL, NDIS, NXYZ, NMAT, MAXES, IOP, TZ, KG, NRS  INT, NT INT 
1,  IREUSE, <LS(J),J=1, 4) 

URITE  (33,4020)  LS (  I) 

URITE  (33,4099) 

MODEX  =  1 

57  CONTINUE 

DEFAULT  VALUES  IF  REQUIRED 

IF(KG.EQ.O)  KG  =  1 

IF ( NRS  INT . EQ .0)  NRS  INT  =  INTRS 

IE ( NT INT . EQ .0 )  NT INT  =  INTT 


J92b 

2927 

2928 

2929 

2930 

2931 

2932 

2933 

2934 

2935 
2933  C 

2937 

2938 

2939 

2940 

2941  6 


DO  58  1=1,8 

IF ( NOD ( I > . G£ .  1  .AND.  NUDd;  .LE.NUMNP)  GO  TO  53 
WRITE  (33,3015;  INEL  ,  NO  IS , NAT 2 , MAT , MAXES ,  10P , TZ , KG , MRS  IrtT  ,«T  INT 
1,  IREUSE, (LS(3) ,3  =  1,4) 

WRITE  (33,4021  )  I,N0Dw- 
STOP 

53  CONTINUE 

IF ( hAanUD . LI . 9 ;  GO  TU  uu 
11  =  0 

00  59  1=9,21 

IF ( NOD  C I) .£3.0)  GO  TO  59 
II  =  II  «•  1 
N  0  D  9 II  (  II;  =  I 

I F  ( N  0  D  (  I )  .  L  £ .  N  U  n  ft  P )  G  T  u  59 

WRITE  (  33,3015;  INEL , NO  IS , NXYZ , NMAT , MAXES , IOP , TZ , KG , NRS IN i . NT  INI 
1,  IREUSE, (LS(J>,J  =  1,4) 

WRITE  (33,4021)  I,N01U  I  • 

STOP 

59  CONTINUE 
1  =  II  t  3 

IF ( I . EQ  .ND  IS )  uG  TO  00 
WRITE  (33,4025)  I,NDI5 
STOP 


2942 

60 

NEL  =  NEE  t  1 

2943 

ML  =  INEL  -  NEL 

294  4 

IF(ML;  65, ”0,80 

2945 

65 

WRITE  (33,4022; 

2940 

STOP 

2947  C 

2948  C 

SAVE  THE  DATA  FG 

2949  C 

DATA  GENERATION 

2950  C 

2951  C 

2952 

70 

KD  IS  =  ND IS 

2953 

KX  TZ  =  NX  T  2 

2954 

KMAT  =  NnAT 

2955 

MAXES  =  MAXES 

2956 

K IOP  =  IOP 

2957 

TTZ  =  TZ 

2958 

K  K  6  =  K  G 

2959 

K  R  S  I N  T  =  N  R  b  I N  I 

2960 

KT INT  =  NT  INT 

2961 

KREUSE  =  IREUSE 

2962 

DO  72  1=1,4 

2963 

72 

KLS (  I)  =  LS(  I) 

2964 

DO  74  1=1  ,NREnD 

2°  t c 

74 

KOD( I)  =  NOD (  I; 

2966 

TAG  =  T  G 1 

2967  C 

2968 

GO  TO  90 

2969  C 

2970  C 

INCREMENT  THE  NL 

INCREMENT  THE  NuN-ZERG  NUDE  NUMBERS  FROM  THE  PRECEED ING  ELEhEnI 


2863  c 

2864  C 
2So5 


DATA  ..DMlSSlPILIlr  CHECK 


52  2F (ND LS.EQ.o)  HU  IS  -  nAXNGD 


2871  C 

°372 

2373 

2974 

2975 

2976 

0977  Q 

2978 

2979  C 

2980  C 
2931  C 

2982 

2983 

2984 

2985 

2986 

2987  C 

2988  C 

2989  C 

2990 

2991 

2992 

2993 

2994 

2995 

2996 

2997 

2998 
295  9 

3000  C 

3001 

3002  C 

3003 

3004 

3005 

3006 

3007 

3008 

3009 

3010 

3011 

3012  C 

3013 

3014  C 

3015  C 

3016  C 

3017  C 

3018 

3019 

3020  C 

3021  C 

3022  C 

3023 

3024  C 


60  DO  85  I=1,NR£AD 

IF ( KQD (  I > . LT . 1 >  GO  TO  85 
KOD(I)  =  KQD  (  I  i  t  KKG 
85  CONTINUE 
TAG  =  TG2 

90  ND  j  *  KD 13 

COMPUTE  THE  AVtkAoE  ELEMENT  TEMPERATURE  USING  COORDINATE  NODES 

TAV  =  0.0 
DO  95  K  =  1 ,  K  X  Y  Z 
I  =  KOD(K) 

95  TAO  =  TAV  *  id; 

TAV  =  TAV  .  KX 1 2 

PERFORM  TEMPERATURE  InTERPOLAT ION  FOR  THE  PROPERTY  SEI 

NT  =  NTPpKmAT) 

IF(NT.GT.l)  GO  TO  100 

97  DO  98  1=1,12 

98  E(  1)  =  EE'.  1,  1+ 1 ,  KM  AT ) 

GO  TO  112 

100  IElIAV.GE.EEU,i,kMAl) )  GO  TO  104 
102  URITE  (33,4030)  TAV , NEL , KMAT 
STOP 

104  IE (TAV.GT . E£(NT , 1 ,KMAT) )  GO  TO  102 
IF (TAV.EQ.EE 1 1 , 1 ,KMAT) )  GO  TO  97 

IE ( MODEx . EO .  1 )  HU  TO  112 

DO  106  K  =  2 , N T 
K2  =  K 
K 1  =  k-l 

IB(TAV.GT.EEud,l,KMAT)  .AND.  TAV . LE . EE ( K2 , 1 , KMAT )  )  GO  TO  108 
106  CONTINUE 

108  DI  =  EE( K2 , 1 , KMAT )  -  EE ( K1 , 1 , KMAT ) 

RATIO  =  (TAV  -  EEC K 1,1, KMAT))  /  DT 
DO  110  1=1,12 

110  E (  I )  =  EE ( K 1 ,  I <■  1 , KMAT )  »  RATIO  * v EE(K2, 1  + 1  ,KMAI ) -EE< K 1 , 1 1 1 , KMAT  j 
112  CONTINUE 

FORM  THE  STRESS-STRAIN  LAU  IN  MATERIAL  COORDINATES  AND  TRANSFORM 
TO  GLOBAL  i .( ,  1 ,2 ;  COORDINATES 

IE ( MODEX . EQ . 0 ) 

RCALL  SSLAU  ( D , E, TEnP , DCA ( 1 , 1 ,KAXES) ,KAXES , KMAT , NEL , DUM , ALPHA ) 
STURE  THE  NODE  COORDINATES  FOR  THIS  ELEMENT 
IF ( MUDEX. EO. 1 1  GO  TO  410 


3025  DO  130  I  =  1 ,  K  D I S 

3026  II  =  KO Dili 

302?  IF( I.LT.9)  GO  TO  125 

3028  JJ  =  N0D9m(I-8) 

3029  II  =  KOD(JJ) 

3030  125  XX ( 1 ,  I)  =  X l  II) 

3031  XX  ( 2 , 1 )  =  HID 

3032  XX<3,  I)  =  Z(  II) 

3033  130  CONTINUE 

3034  C 

3035  C  COMPUTE  THE  ELEMENT  STIFFNESS,  MASS,  THERMAL  AND  GRAVITY  LOAD 

3036  C  MATRICES 

3037  C 

3038  DO  170  1=1, o3 

3039  do  170  an, 4 

3040  170  RE ( I, J ) =0 .0 

3041  C 

3042  IF ( KREUSE . Eu.  1 )  GO  TO  300 

3043  C 

3044  DO  180  I = 1 , K D  I S 

3045  130  DL ( I ) =0 . 0 

3046  DO  190  1=1, ND 

3047  C 

3048  C 

3049  C  1.  THERnAL  LOADS 

3050  C 

3051  190  FT ( I )  =0 . 0 

3052  KTL  =  0 

3053  DUX  =  0.0 

3054  DO  200  1=1,4 

3055  200  DUX  =  DUX  +DADS (TLE ( I  > ) 

3056  IF ( DUX  .  GT . 1 .0E-06 )  KTL  =  1 

3057  IE (KTL. EG.  1 )  THEN  !  U  !  ! 

3058  UR  ITE ( 99 , A )  kt]=  =  =  r  !!!!! 

3059  END  IE  MM! 

3060  IF  (NDYN.GT.O)  KTL=0 

3061  IFUTL.EQ.O  .OR.  NDYN.GT.O)  GO  TO  235 

3062  C 

3063  C  A.  INITIAL  STRESS  CONSTANTS 

3064  C 

3065  DO  210  1=1,6 

3066  S IGDT (  I)  =  0.0 

3037  DO  205  K=l,6 

3068  205  SIGDT(I)  =  S IGDT (  I )  *  D(I,K)*  ALPHA(K)  !  1  changed  to  I  '.first) 

3069  210  CONTINUE 

3070  C  WR ITE( 28 , A )  '  sigdt  in  THDFE ' 

3071  C  UR  1TE ( 28 , A )  C s igdt ( R ) , k=l ,6 ) 

3072  C 

3073  C  B.  VECTOR  OF  NUDE  TEMPERATURE  DIFFERENCES 

3074  C 

3075  DO  230  I=1,KDIS 

3076  II  =  KOOY  I) 

3077  IF (  I. LX. 9)  GO  10  220 

3078  I  =  N  0  D  9  M (  1-8) 


3079  II  =  KOD i J  > 

3080  220  CELT (  I)  =  T(  II)  -  TTZ 

3081  230  CONTINUE 

3082  C 

3083  C  C.  CLEAR  THE  THERMAL  LOAD  NODE  FORCE  VECTOR 

3084  C 

3085  C  2.  GRAVITY  LOADS 

3086  C 

3087  235  DUX=0.0 

3088  DO  250  1=1,4 

3089  250  DUX  =  DuX  +  DABGULE(I))  +  DABS  (  YLF  ( I )  )  +DABS  (  ZLF  (  1 1  > 

3090  KGL  =  0 

3091  IF ( DUX . GT .  1 . OE-6  >  KGL  =  1 

3092  IF  (NDYN.GT.O)  K. G L - 0 

3093  C 

3094  C 

3095  C  3.  rtAbS  nATRIX 

3096  KNS  =  0 

3097  IF (NDYN.GT.O)  KnS  =  1 

3098  C 

3099  DO  270  K=1,ND 

3100  C 

3101  C  4.  STIFFNESS  MATRIX 

3102  C 

3103  270  XM(K)  =  0.0 

3104  DO  280  1=1,  ND 

3105  DO  280  K  =  I , ND 

3106  230  SS(  I , K )  =  u.O 

3107  C 

3108  C 

3109  CALL  ST8R21  ( D , B , SS , XX , N0D9H , H , P , S IGDT , DELT , FT f DL , Xm , NEL  .  ND , KD  IS 

3110  1  KXYZ , KTL , KGL , KnS ,KRS  INT , KT INI , DEN (KrtAT ) , RHO ( KMAT  j  > 

3111  C 

3112  C 

3113  C  NODE  FORCES  DUE  TO  THERMAL  DISTORTION 

3114  C 

3115  300  IE  (KTL.EQ.O)  GO  TO  325 

3116  DO  320  1=1, ND 

3117  DO  310  K  =  1 , 4 

3118  310  RF (  I ,  K  )  =  FT ( I;A  TlF(K; 

3119  320  CONTINUE 

3120  C 

3121  C  NODE  FORCES  DUE  TO  STATIC  ACCELERATIONS 

3122  C 

3123  C 

3124  325  IF  (KGL. EG. 0/  GO  TO  350 

3125  DO  340  I=1,KDIS 

3126  K3  =  3 A  I 

3127  K2  =  K  3 -  1 

3128  K 1  =  K2-1 

3129  DO  330  L=l,4 

3130  R  F ( K 1 ,  L )  =  R  F ( K 1 ,  L  )  t  XLF(L)ADL(I> 

3131  R  F ( K  2  ,  L  )  =  R  F ( K  2 , L )  +  Y  LF ( L ) A  DLCI) 

3132  330  R  F  (  K  3 ,  L  )  =  RF'.K3,L)  t  ZLF  ;  L  )  A  DL(I) 


3133 

340 

CONTINUE 

3134 

C 

3135 

c 

COMPUTE  NUDE  FORCES  DUE 

3136 

c 

3137 

350 

IF  ( NDL2 .21 .  1.  Jk.fdu'N.CT. 

3133 

c 

3130 

DO  400  L  =  l,4 

31  40 

IFlPLFlL.'  .C-3.0.  j  <  6b  TO 

3141 

(1  =  KLS  (  L  i 

3142 

IFU1.LT.  1;  GO  TO  4vu 

J  1  4  3 

DC  36 0  K -  1 , N D 

3144 

c 

j  1  45 

560 

P  L  U .  i  -  0 . 0 

J 1  4b 

Call  falepr  •. nel, s  d  d , c.  ■ 

3147 

1 

P  w  A  d  ,  n  .•  ,  n  1 

3148 

c 

3140 

DO  370  1=1, nD 

3150 

c 

3151 

370 

K  E  i  I ,  L )  =  K  F  I ,  L ;  f  i'  L  l 

3152 

400 

CONTINUE 

3153 

405 

CQNT  INUE 

3154 

c 

3155 

c 

AsSIuN  EOUATiOn  iiUr.btk; 

3156 

c 

3157 

410 

K  =  -3 

3153 

DO  420  I  =  1 , K 0 1 8 

3150 

II  =  KOD(  I.' 

3160 

IFd.LT.3)  GO  TO  -.15 

3 1  o  1 

JJ  =  NODvnd-cj 

3162 

II  =  KODUjj 

3163 

415 

K  =  K  +  3 

3164 

DO  420  6=1.3 

3165 

n  =  K  t  l 

3  1 66 

420 

Lmru  =  ID'.  1 1 ,  L  . 

31u7 

c 

j  1 68 

IF ( K  IGP . bT . 0 )  NS  -  uaHm, 

3160 

IF i K  IOP . 20 . 0 )  No  =  6 

3170 

IF  ( N L  l  N  .  G T .  0 1  N  A  =  4  2 

3171 

c 

5172 

c 

SAVE  STIFFNESS  AnD  LOAD 

3173 

c 

3174 

CALL  5 ALLAN  ( MDAND , ND IF 

3175 

c 

3176 

c 

COMPUTE  STRESS  RECOVER i 

317? 

c 

3178 

IF  (NDin.LT. I >  GO  TO  4u 

3170 

N0P  =  7 

3180 

DO  422  1=1,7 

3181 

422 

LOCOP  (  I'd  t  2u 

3182 

GO  TO  450 

425  IF  (KIOP.ELi.yJ  uu  Tu  4-10 
NOP  =  MAxPT'S  ■  K  IOP  ; 

DO  430  1  =  1  , NOP 
420  LOCOP1.  It  -  Lul  <,  I , k  10 P  ; 


r 

f 

3137  GO  TO  45o 

3183  440  NOP  =  1 

3183  LOCOPU  '  =  21 

3180  C 

3181  450  IE ( MGDEx  .  Eli .  1  )  GO  Tu  5i0 

3192  C 

3193  C  CONSIDER  EACH  OUTPUT  LulmTION 

3194  C 

3195  DO  500  L=i,NGP 
319b  C 

3197  rt=  LOCQP L  > 

3198  El-  STPTSCn,  1  t 

3199  E2  =  STPTS ; n , 3 ) 

3200  E3  =  STPTS ( n ,  3  < 

3201  C 

3202  C  CONFUTE  THE  _TRA  IN- D  ISPLACEnENT  MATRIX  AT  THIS  LOCATION 

3203  C 

3204  CALL  0ER3DS  t  NEL  ,  aX  ,  l ,  DET ,  El ,  E2  f  E3  ,NQD9M  ,H,  P  ,  KD  IS ,  KX  ( Z  ; 

3205  C 

3206  DO  470  1  =  1,  o 

3207  N  =  GA 1 L  - 1  >  «•  1 

3208  DU  465  3=1, ND 

3209  Q  =  0.0 

3210  DO  460  K  =  1 , 6 

321  1  460  Q  =  Q  +  D (  I , K )  A  bo;,  3) 

3212  465  SDT ( N , J i  =  D 

3213  470  CONTINUE 

3214  C 

3215  C  FORM  THE  INITIAL  STRESS  CORRECTIONS  DUE  TO  THERMAL  LOADS 

3216  C 

3217  IF ( KTL . EG . 0  .OR.  NDiN.GT.O)  GO  TO  500 

3218  C 

3219  C 

3220  C  1.  TEnPERATURE  DIFFERENCE  AT  THIS  LOCATION 

3221  C 

3222  Q  =  0.0 

3223  DO  480  K=1,KD1S 

3224  C 

3225  C  2.  VECTOR  OF  INITIAL  STRESSES 

3226  C 

3227  480  Q  =  Q  +  H ; K ) A  DELT ( K ) 

3228  DO  435  K=l,6 

3229  485  VIS(K)  =  -0  A  SIGDT(K) 

3230  C 

3231  DO  490  1  =  1  , o 

3232  N  =  6A(L-l>tI 

3233  C 

3234  DO  490  K  =  1 , 4 

3235  490  S  F  (  N ,  K  )  =  VI3(I>A  TLFlK; 

3236  C 

3237  500  CONTINUE 

3238  C 

3239  C 

3240  C 


SAVE  THE  STRESS  RECOVER?  ARRATS 


vv 


if 


t 


i 


3241 

C 

3242 

510 

CONTINUE 

3243 

C 

3244 

IF ( MQBEX . EQ . 0 ) 

3245 

1URITE 

(1 )  ND,NS,(LM(I),I-1,ND),((SDT(I,J),I=1,NS) 

,  J  -  I  ,  N  L.  . 

324G 

( (SF(  I,3> ,  1  =  1 , NS) ,3  =  1 ,4) 

3247 

C 

3243 

C 

PRINT 

DATA  FLU..  THE  CURRENT  ELEMENT 

3  243 

C 

j25u 

OR  ITE 

(33,2015;  N £ L , K D IS , KXYZ, KMAT ,KAXES,K IOP , TT2 

,  t.f.'j  ,  t.r  - 

3-51 

1 

k  REUSE ,  KL3 

3252 

UaITE 

(33,3017/  w>  0  3 ..  1 ;  ,  1  -  1 ,  N  k  E  A  D  ) 

3253 

c 

3254 

CAA  k 

BATA  PORThuLE  SAVE 

J  2  5  j 

IF'. NTbSU.EO.l  > 

325b 

1WR IIE 

(NlO;  NEL ,  k.D  IS  ,  KX  i  Z ,  KMAT ,  K AXES ,  K  IOP ,  TTZ  , 

K  R  S  i.  >i 

3257 

K R  EUS  2 , K  L  3 , N  R  E  A  D , 

3258 

3 

i  KOD  (  I;  ,  1  -  1 ,  NREAD  ) 

3259 

C  AaA 

3  2  o  0 

C 

3261 

C 

CHECK 

EGk  Tht.  LAsT  ELEMENT 

3262 

c 

3263 

IF ( NUflE-NEL i  65,600,530 

3264 

530 

IE ( ML / 

50,  SO,  60 

3265 

3266 

600 

RETURN 

3267 

C 

3268 

C 

FORMATS 

3269 

C 

7270 

1008 

FORMAT 

(615, F 1 0 . 0,415,412) 

3271 

o  ■“> 

1009 

FORMAT 

(1615) 

J  «-  /  — 

3273 

c 

2001 

FORMAT 

(  7 X , 34HNUMEER  OF  21-NODE  ELEMENTS 

16// 

3274 

1 

7  X  ,  3  4  H  N  U  M  B  E  k  OF  MATERIAL  SETS  - 

16// 

3275 

-> 

7 X , 26HMAX IMUM  NUMBER  OF  MATERIAL,  / 

3276 

J 

?.< ,  34HTCMPERATURE  INPUT  POINTS 

16  ! , 

3277 

4 

7X  ,  1  ’-HNUmBER  OF  MATERIAL, 

3278 

J 

7X , 34HAX IS  ORIENTATION  SETS 

16// 

3279 

A 

?X , 34HNUMBER  OF  DISTRIBUTED  LOAD  SEIS  = 

I  b  /  / 

3280 

u 

7X,34HMAXlMUn  NUMBER  OF  ELEMENT  NODES  = 

16  ,  / 

3281 

n 

?X , 34HNUMBER  OF  STRESS  OUTPUT  SETS 

lb  // 

3282 

8 

7X , 34HR , S  COORDINATE  INTEGRATION  ORDER  - 

16  // 

3283 

9 

7x , 34HI  COORDINATE  INTEGRATION  ORDER 

Ib  //  1  < 

3284 

3014 

FORMAT 

(52H13/D  3  TO  21  NODE  SO 

L  I  D 

3235 

1  18H 

M  E  N  T  DATA,//  8H  ELEMENT  2 ( 2X , 5HN0DES ; , 2 \ - 

3286 

2  5HMATL. ) , 2X , 6HSTRES3 , 4X , 6HSTRESS , 2X , 4HN0DE , 2 ( 2X 

,  5  H  G  A  U  b  S 

3287 

3  2HK- 

,5x,3HLSA,3X,3HLSB,3X,3HLSC,3X,3HLSD,  / 

3283 

4  8H 

NUMBER, 7H  -NDIS-.7H  -NXYZ- , 2X , 5HTABLE , 3X , 4HAXES , 2x , 

3289 

5  6X,4HFREE,2X,4HINC. ,2(3X, 4HFTS. ) , 2X , 6HMATR IX , 2X 

,  4 ( 2X , 4H 

3290 

6  26X , 

3HN0 .  ,4X,3HSET,5X,3riSETf5X,5HTEMP. ,2X,4H-KG 

-  ,  2X  ,  5H- 

3291 

7  3H-T 

-  ,  2X  ,  6HRE-USE , 2X ,  8 ( 2X , 2HN- , 12 )  ) 

3292 

3015 

FORMAT 

(  18,417,  IS, F10. 1 ,  L, 2  17, 18, 2X, 4  16) 

3293 

3016 

FORMAT 

(84X,8(2X,2HN-, 12) , :  /  84X  ,  5 ( 2X , 2HN- ,  12 )  ) 

3284 

3017 

FORMAT 

( S 4 X , 3 1 6 , :  /  84X,3I6,I/  84X,5I6) 

I'.t.TIM, 


L  E 


-61 
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^•>>vvv 


•  *  J  "j*  *_r  *  *■  ‘  - 


,**.  -  «\  *’.  ►  ~~ »  *r, 
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3295  C 

32%  4014  FORMAT  < 33H0ERK0RaAA  ENCOUNTERED  ELEMENT  (,I5,13H),  BUT  CaPLCT, 

3297  1  21H  TO  READ  ELEMENT  ONE.,  /  IX) 

3298  4015  FORMAT  ( 42H0ERRGkAAA  NUMBER  OF  DISPLACEMENT  NODES  (,I5,4H;  IS, 

3299  1  30H  LARGER  THAN  MAXIMUM  ALLOWED  (,I5,2H).(  /  IX) 

3200  4016  FORMAT  ( 40H0ERR0RAAA  NUMBER  OF  COORDINATE  NODES  (,I5,6H;  nU'3T, 

3301  1  39H  BE  .LE.  NUMBER  OF  DISPLACEMENT  NODES  (,I5,2H).. 

3302  4017  FORMAT  (36H0ERRQRAAA  ILLEGAL  MATERIAL  NUMBER.  ) 

3303  4018  FORMAT  ( 44H0ERR0RAAA  ILLEGAL  MATERIAL  AXIS  REFERENCE.  ■ 

3304  4019  FORMAT  ( 41H0ERR0RAAA  ILLEGAL  OUTPUT  SET  REFRENCE.  > 

3305  4020  FORMAT  ( 41H0ERR0RAAA  PRESSURE  LOAD  SET  REFERENCE  (,I5,4h;  IS, 

3306  1  9H  ILLEGAL.  ) 

3307  4021  FORMAT  ( 16H0ERR0R AAA  THE  ,I2,18H-TH  ELEMENT  NODE  (,I5,4H.  IS, 

3308  1  9H  ILLEGAL.,/  IX) 

3309  4022  FORMAT  ( 28H0ERRQRAAA  ELEMENT  NUMBER  (,I5,IJH)  IS  OUT  OF, 

3310  1  10H  SEQUENCE.,  /  IX) 

3311  4023  FORMAT  ( 42H0ERR0RAA*  NUMBER  OF  DISPLACEMENT  NODES  1, 15, 

3312  1  25H)  MUST  BE  AT  LEAST  EIGHT.  ) 

3313  4024  EORMAT  I 4QHQERRQRAAA  NUMBER  OF  COORDINATE  NODES  I ,15, 

3314  1  25H )  MUSI  BE  AT  LEAST  EIGHT.  ) 

3315  4025  FORMAT  i 38HQERRQRA AA  NUMBER  OF  NON-ZERO  NODES  ( ,  13 , 6H )  READ, 

3316  1  50H  DOES  NOT  EQUAL  THE  NUMBER  OF  DISPLACEMENT  NODES  (, 

3317  2  13, 2H).,/  IX) 

3318  4030  FORMAT  ( 33H0ERR0R AAA  AVERAGE  TEMPERATURE  (,F10.2,5H)  FOR, 

3319  1  10H  ELEMENT  «,I5,29H)  OUT  OF  RANGE  FOR  MATERIAL  (,13, 

3320  2  2H ) . ,  /  IX) 

3321  4099  FORMAT  ( 12X , jIHPRGCEED  IN  DATA  CHECK  ONLY  MODE,  /  IX) 

3322  C 

3323  END 

3325  SUBROUTINE  VECTR2  ( V , X  I , Y I , Z I , XJ , Y J , ZJ , IERR) 

3326  C 

3327  C  CALLED  BY  :  INP21 

3323  C 

3329  IMPLICIT  REALA8 ( A-H , 0-2 ) 

3330  C 

3331  C  THIS  ROUTINE  FORmS  A  UNIT  LENGTH  VECTOR  AVA  FROM  POINT  A IA 

3332  C  TO  POINT  A3  A  IN  X,Y,Z  SPACE 

3333  C 

3334  DIMENSION  V(3) 

3335  C 

3336  IERR  -  I 

3337  X  =  XJ  -  XI 

3338  Y  =  Y  J  -  1 1 

3339  Z  =  23  -  21 

3340  XLN  =DSQRT(XaX+YAY+2A2) 

3341  IFYXLN.LE. 1 .0E-08)  RETURN 

3342  XLN  =  1.0  /  XLN 

3343  IERR  =  0 

3344  V ( 3 )  =  Z  A  XLN 

3345  V ( 2 )  =  X  A  XLN 

3346  V ( 1 )  =  X  A  XLN 

3347  RETURN 

3348  END 


k 


3349  C4  =  =  - 

3350 
5351 

3352 
2353 

3354  C 

3355  C 

3  5  6  Ca~  —  '” 
3a57  C 
5358  C 

3353 
-)3b  0 
j  35 1 
3382 
5363 
3364 
3  3  65 

3366  Ci--- 

3367 

3368 
3363 

3370  C 

3371  C 

3372  C 

3373  C 

3374  C 

3375  C 

3376 

3377 

3378 
3373 

3380 

3381 
3362 

3 333  1 aAA  A 


SUBROUTINE  STInE 

TS=0 . 0 

RETURN 

END 


SUBROUTINE  TTinE 

T  -  tunuLrtllVE  TASi.  TInE,  RETURNED  IN  UNITS  OF  SECOND'S 
SUBROUTINE  IT ImE  ( T / 

INTE6ERA4  -jet  tliliO,  t»«e 
DATA  get  tiwe  ,'2/ 

CALL  L  I B  t  S  T  A  T  T  I M  E  R  1  g  e  t  c i  in  e  ,  1 l  m  e  / 

T  =  time  /  10i> .  0 

RETURN 

END 


SUBROUTINE  5 0 L E U 
IMPLICIT  R  E  A  L  a  3  ( A  -  H ,  0  -  Z  > 

CALLS:  SEEGL , FR InTD , STRESS 
CALLED  B 1 :  MAIN 

STATIC  SOLUTION  PHASE 

COnnON  At i /  1  ???????? 

COMMON  / E L P A R /  N P  n 4 ) , NUnNP , MBAND ,NELTYP , N1 ,  N2 ,  N3  ,N4 ,  N5 ,  nlu  I ,  NEC! 
common  .  'SOL  '  NBLOCK ,  nEQB  ,  IL  ,NE ,  IE  ILK  7  i 
D  InENS  ION  ID 300 u ,  6 ) ,  D  t  40000 ) ,  NX  (3,200 ) 

COmmON/CRL.  nlRKD, ICR(OOOO) 

DATA  NCRKD  4/  1  ????????? 

n IN.  nImLnSIOh  -  (  r, L.  *  6 A n p 3 1 r  ;  :  also  cheep,  in  SESOL  ,  outine 

DIMENSION  T  m  A I M  •.  l.  0  0  ,  C  0  0 ) 

COMMON/TnT,  TnAT(bOO,oOe)  ,TC0L(600)  ,TC0L2(600)  ,TC0LM(60o.'  , 

,  1ST  (  600  J  ,  K  <,  0000  / 


3383 

3339 

3390 

3391  C 

3392 

3393 

3394 

3395 

3396 

3397  c 
3298  c 
3399  c 
3  400  c 
3401  1023 


dimension  hoc  1 2  vO  > ,  i  T  i  ,;  (  200 ) ,  ds  ive  \  200 ) ,  npc  *.  2 , 2  5  j  ;  ,1hl  , 
EORCtiB  1  3 , 200  >  ,  t'ORC  I «  5 , 200  ) ,  c  0RC2 (  3 , 200 )  ,  ENER6  1  3 


R  E  A  L  A  4  [  T  1 4  .  ,  1 1  _  u  6  i  'j  i 

INTER1  100  'INTERMEDIATE  PRINTING 

rewind  S 

reid  (8)  ( 10 1  n ,  l  ■  ,  n- 1 ,  niju.np ) ,  l  =  1 , 6 )  1  degrees  of  fi 

WRITE(33,«'  .«,»*  iO  -  imy  in  soleq  AAAAAAAA - 

do  n  —  I ,  fi ijui n p 

WRITE  (5  3,  1023;  ,  i  d n  ,  l  )  ,  i  =  1 , 6  ) 
end  do 

f orai ot  <2..,20i 5/ 


V.O"." v.' v.  v_  -  j-  j- 


JLA  k  R  J*  * 


3403  *AA  TO  read  data  regarding 

3404  c  nudes  where  forces  to  be  found  whose  disp.  3re  specified  (NR.* 

3405  c  &  double  nodes  along  the  crack  propagation  (  NPAlki 

3406  read  (5, A)  r.D  1  no  of  boundary  nodes  where  forces  are  to  touno 

340?  IE t INTPR.LE.2)  URiTE(33,A)  '  nb  -  ',nb 

3408  c  --  input  node,  degree  of  freedom,  displacement 
3408  do  ij-l,nb 

3410  read(5,A)  nbc  (  i  j ) ,  if  i;. «.  i  j ) ,  dsave  ( l  j ) 

3411  !  if ( INTPR.LE.2l 

3412  WRITE(33,A>  nbc ( i j ) , if ix ( i j ) , dsave ( i j ) 

3413  end  do 

3414  ncrkd=0 

a 4 1 5  if  ( INTPR . IE . 2 )  WR  lTE i  25 ,  A  ;  '  node ,  i;< ,  ndof , ncrkd,  lcr  ( ndof ) ,  i  :  t  <  ncri  d ) ' 

3416  l  f  (  I N  T  P  R .  L  L .  2 )  W  R  I T  E  t  :  3  ,  A  )  tij  ,  ( i  d  ( l  j  ,  l ;; )  ,  i  =  1 , 6 )  ,  l  l  -  1 , 1 6  8  • 

341? 

3418  do  ib=l,nb 

3419  node=nbc ( ib ) 

3420  ix=if  ix(  it 

3421  ndof  =  id ( node  ,  ik 

3422  ncrkd=ncrkd+l 

3423  if ( INTPR.LE.2  > 

3424  .  URITE(33, 1029),  node,  i..f  ndof,  ncrkd 

3425  icr (ndof )=nerkd 

3426  lst(ncrkd) --ncrkd 

3427  if ( INTPR.LE.2) 

3428  .  WRITE (33, 1029) .node, ix ,ndof , ncrkd, icr (ndof ), ist ( ncrkd ) 

3429  end  do 

3430  1029  format  (2x,5i8,5ib/ 

3431  if ( INTPR . LE . 1 )  UR  I T E  t 33 , 1028 )  (  ICR (  13 ) , I J  =  1 ,NEQ ) 

3432  if  (INTPR.LE.2)  UR  IT E ( 33 , 1 023 )  IST 

3433  1030  FGRrtAT  ( 2.t , 20E6 . 3 ) 

3434 

3435 

8436  re3d  (5,A)  npair  1  no  of  double  nodes  i  the  double  nodes 

3437  i  if <  INTPR.LE.2) 

4438  URITE(33,A,'  '  npair  =  npair 

3439  do  ipair=l , npair 

3440  r  e ad ( 5 ,  A )  i npc  ( i ,  ipair  -■ ,  l  =  1 , 2 ) ,  (NX(  IJ ,  ipai r  ) ,  I J  =  1 , 3 ) 

i  4 1  i  if  (  INTPR.LE.2) 

4442  WRITE (33 ,  A )  ( npc  ( l ,  i pair  ;  ,  i  =  l , 2) ,  (n:<(  i  j  ,  ipair  ) ,  l  j  =  l , 3  > 

3443  do  l : ;  =  1 , 2 

3444  node=npc  Us,  ipair  > 

3445  do  iy=l,3  1  d.o.f.  at  each  node 

3446  ndof =id (node , iy j 

3447  if (ndof .ne . 0 . and. icr ( ndof ) . eq . 0 . and . nx ( iy , ipair ) .eq.l )  then 

3448  ncrkd-ncrkd* 1 

3449  icr (ndof ) =ncr kd 

3450  ist (ncrkd) -ncrkd 

3451  end  if 

3452  end  do 

3453  end  do 

3454  end  do 

3455 

3456 


I 


3457  C 

3458  C 
3  453  C 

3460 

3461 

3462  C- 

3463  C- 
34  6  4 

3  465 

3466 

3467 

3468  C 
3  163 

3  47  0 

3471 

3472 

3473 


10301 


SOLVE  FOR  THE  D  ISRLACEflENT  VECTORS 
CALL  IT  InE ( XT  < 1 ) > 

,41  =  1 

NCRnD  -  TOTAL  40.  uF  ADDITIONAL  COLUMNS 
L  L  =  1  +  N  C  R  K  D 

N5BG  =  i  n&ANDi- 1  )  A  ,'i  C  Q  B 
43B  =  (nBAriD+LL )  ANECib 
N  3  =  N  2  B  +  i 

43  =  113  =  l L A 4 lO B  1  ■  •' 

4  6  BB  =  Nt  u  B  k  lL  A  i  ~  > ",  n  BA  a  D  -  „ ; .  NEQ  B ) 

I F  ( N  6  B  B  .  L  T  .  4  3 1- N  S  B  D  =  4  '3  B 
44=43 ♦NblB 
nl  =  HBAND  +  NEifB  -1 
if INTER .  LE .  2 ; 

.  WR ITE ( 32 , A;  LL  riBAND  4'3B  43  NSBB  N4  rtl  41  42  r< 

if  t INTER. LE. 2; 

.UkITE(33, 10301)  LL,nBAND,NSB,N3,NSBB,44,hI  ,41,42,43 
form  it  i  2,, ,  12i8 ) 
rewind  15 
rewind  4 
do  i  j  =  1 ,  r,b  1  oek 
read  (4)  l  A i  IK ) , IK= 1 , 4SB0 ) 

URITEU5)  ■,  IJK) ,  IJK  =  1,4SB0) 
end  do 

CALL  SEbOL  i  A 1  41 1  ,  A  ( 4  3  ; ,  A  i  N  4 )  ,LL,NBLOCK,NEQB,  NSB,nI  ,4,3,  a 
CALL  TT  InE t  TT i 2 ) ) 

4L  =  2 

4  L 1  =  1 8 

4  U  V  =  L  L  A  4  E  Q  B 

REUINB  4L 

REWIND  Nil 

DO  43=1 , 4 BLOCK 

READ  ( NL ;  A  (  I J  > ,  U  =  1 ,  inJV ) 

WRITEiNLU  i  A(  IJ  i  ,  IJ  =  1 ,4WV) 

END  DO 


U  R  I T  E  '  1  6  T  MAT,  tool 

do  l  p  j  u  -  i  ,  r,p  j  l  r 

node  1 =npe U  ,  l  p  j  i  r  / 

node2=npc 1 2 ,  i  p  ai r ) 

do  1 d  f  =  1 ,6 

ndof 1  =  id i node  1 , i df i 

ndof  2  =  id1,  node 2 ,  idf  ) 

l  f  ( ndoi  1  .  r,e  .  O  .  jnd  .  ndof  2  .  ne  .  0 )  then 

icr 1 = lcr i ndof 1 > 

icr2=  lcr  ndof  2 ) 

i  f  ( is t icr  1 ) .  j  t .  0 .  and .  1 3 1  ( icr 2 ) .  gt .  0 )  i at  <  icr  2 =  l  5 1 1  ici  i 
end  if 
end  do 
end  do 


NUDES 


D.Q.F.  RELEASED 


3511 

3512 

3513  write  (33, hi  - 

3514  Uo  itr=l,100 

3515  call  ttme(  t tsuti  1 1 ) ) 

351b  read  (5, A)  ipi,ip2,i;; 

3517  write  ( 33, A )  i  p  1 ,  i  p  2 ,  i.\ 

3518  if ( ipl .eq. 9999. and. lpj.eq. 9999)  jo  to  1995 

3519  do  while  (ipl.rie.0) 

3520  if  (lpd.eq.G)  then 

3521  node=ipl 

3522  ndof  =  id ( node  ,  i.; ) 

3523  if (ndof .ns. 0)  then 

3524  icr l=icr (ndof ) 

3525  i st ( icr 1 > ~  icr 1 

352b  end  if 

3527  else 

3528  nodel = l p 1 

3529  node2=ip2 

3530  idf  =  i:; 

3531  ndof 1 =id< nodel , idf ) 

3532  ndaf2=id(node2,  idf ) 

3533  if (ndof l.ne.O. and.ndof 2.ne.0)  then 

3534  icrl  =  icr (ndof 1 ) 

3535  icr2=icr (ndof2> 

3536  ist( icr2)=icr2 

3537  end  if 

3538  end  if 

3539  read  (5, A)  ipl,ip2,i;< 

3540  write  (33, A)  ipl,ip2,i;: 

3541  end  do 

3542 

j543  if  ( INTER. LE. 2)  tner. 

3544  UR  ITE  (  33  ,  A )  '  1ST - ' 

3545  UR  IT E ( 32 , 1028 >  ( ist ( i j ) , i j  =  l ,ncrkd) 

3546  end  if 

3547 

3548  REUIND  16 

3549  READ  (16)  ThAT , tco 1 

3550 

3551  do  1=1, neq 

3552  icr i  =  icr ( l  / 

3553  isti=ist\ icr  i  ) 

3554  if ( icr i . le . nb . and . i s t i . jt . 0)  tcol ( icr i ) =tcol ( icr l ) +tcol2( icr  l ) 

3555  end  do 

3556 

3557  do  i=l,ncrkd 

3558  isti=ist(i) 

3559  do  j  =  l,ncrk.d 

3560  istj=ist(j) 

3561  if ( isti . jt .0 . and . ist j . le .0 )  tcol ( i ) =tcol ( i ) -THAT ( i , j ) Ads ave ( j ) 

3562  if ( ist l .  1 e  . 0 . or . ist j . le . 0 >  TMAT(i,j>=0. 

3563  if ( ist l . le . 0 . and . ist  j . le .0 . AND. isti  .eq. ist j  )  TMAT ( l , j )  =  1 . 

3564  end  do 


b  ~6u 


1  d  1  S  p 


w v.  v. v."  ■  v  v  V  S  JVwV A  ~ J-  > r  -r  7J\.  « 

tv.v.^.v.v.v.v.v.v 

kft 

V 

o 

3565 

end  do 

t 

% 

g 

3566 

IF (  IMTPk . LE . 1 )  U  k  I T  E  \  3  3 ,  A ) 

3567 

.  '  - TnAT,TC0L  alter  1ST  manipulation - ' 

l 

J  568 

DO  I=l,riCRKD 

W 

vV 

3563 

IF ( INTER . LE .  1 )  u*  ITE i  33 , 1091  >  (TrtAK  I,  J) ,  J  =  1  ,NCkKD  ■  ,  TOOL  ■.  I  / 

ft: 

3570 

END  DO 

>: 

3571 

do  i=l,nerkd 

$ 

3573 

t  e  o  1 » i  i  )=0. 

3573 

do  j  =  1 , ne i  r  d 

i 

3574 

tmatu. i  i ,  j  1  =0 . 

3575 

end  do 

■is 

3576 

end  do 

r.\ 

'  t,r?? 

do  i  —  i ,  n c ;  1-  >1 

ft- 

3578 

ISt  1  =  1  jOS  ■.  1  t  (  1  ;  ■ 

>  £ 

3579 

tcolm1,  i  a  1 1  >  - 1  c  o  1  lu  v  l  a  1 1  i  r  teal  ( l) 

t 

3580 

do  j=l,ncrkd 

7J, 

3531 

i  at  3  =  1  aba  ■;  l  it  \  j  <  i 

ft 

3582 

tu a  tail  l  a  1 1 ,  l  a  t  j  /  •  tm  j  tfu  t  i a  1 1 ,  i  s  t  j )  +-THAT  ( l ,  j ) 

3533 

end  do 

$ 

356  4 

end  do 

^  c  r.  c.- 

JjOj 

du  X  —  1  #  ii  C  f  V  d 

ft 

3536 

1  i  (  t  iU  j  t  la  (  1  ,  1  ■  .  .  'J  )  t  u>  j  L  iii  1  r  1  )  r  1  •  0 

3587 

end  do 

JS 

3583 

IF (  INTER  .  LE . 1 ;  URITEv33,Aj  ' - TMATjb  ,  TCOLid  before  u  j  1. 1  n  -  - 

—  Ks 

ft 

3589 

DO  1  =  1,  nCRlD 

3590 

IF  (  INTEL. LE.  1 :  WE  ITE  v  33,1091  )  ( THAT#  ( I ,  J ) ,  J  =  1 ,  NCRKD  >  ,  TC6L* I  i 

£ 

3591 

end  do 

3592 

3593 

C  3  1  1  t/ 1,  i  ui  to  1  1 1  j  >j  L1  l  J  '  ' 

c; 

s/j 

3594 

3595 

call  MAT  In  v  tm  a  tm ,  i4c  r  Ed  ,  tcolm ,  1 ,  DETERM) 

s- 

3596 

3597 

call  1 1  ia*e  i  1 1  aut  ( 3 )  i 

S 

§ 

3598 

IF  t  IMTFR.LE.  1  >  Uk  ITE  ( 33 ,  A  >  1 - THAIn ,  T  C  0  L  m  after  aijtin 

3599 

DO  1  =  1  , NCRKD 

r. ' 

3600 

IF  ( INTER. LE.  1 )  Uk  ITE 1 33 , 1091 )  \  Ti1ATu(  I ,  J  )  ,  3  =  1 ,  NCRKD )  rIcox.«<  1  .■ 

3601 

e  r,  d  d  o 

3602 

do  l  =  1 ,  n  c  r  k  d 

3603 

l  =  t i  -  i  aba  (  i  it  ‘  l )  .' 

i 

3604 

tcGl(i,'  =  t,col»(iati> 

•  .* 

3b05 

l f  (  i at  (  i  >  .  le .  0 :  tcol  ■.  i  ■  =dsave(  i  )  !  disp 

/■J 

3606 

end  do 

3607 

N  U  V  =  L  L  A  N  E  G  t 

3608 

Rewind  nil 

3603 

du  rij  =  l,riL.loc».-l 

i 

3610 

read  ■.nil.-  i  a  i 1  j  .  ,  l  j  =  1 ,  ,.wv  > 

v 

3611 

O  fid  do 

3b  12 

do  nj=l ,nbluCr 

ft”! 

3613 

nconst =  ■.  n  j  - 1 )  Aneijb 

*  » * 

361  4 

read  ( ri  L 1  ;  >  a  \  l  ]  ■  ,  i  j  r  1 ,  nwv  ) 

‘ft 

3615 

backspace  rill 

| - 

3b  1  b 

b  a  c  k  a  p  a  c  e  n  i  1 

3617 

do  l  =  1 ,  n  e  q  b 

v 

3b  i  3 

t> 1  1 1  n  c  o  n  t  .•  -  j 1 1 

ft; 

l  -67 

& 

»  1 

,svj 

L^.vA.’VwV  v 

3619 

do  k=l,nerkd 

. 

3620 

3621 

nksneqt> t  ( k - 1 )  *ne-qt.‘  +  l 

b(  l+nconst ) =b( i  +  neonst ) -a ( nk) Atcol (k) 

•  •*< 

lVi 

ft 

3622 

end  do 

J623 

end  do 

Vi 

3629 

A 

j625 

IF' INIPR.LE.1j  URITEi33,A)  '  -  intermediate  solution 

Vi 

36  2  u 

IF  (  INTER .  LE  .  1  >  Uk  1TE  k  33 , 1091)  < b '  l j ) , l j  =  1 , neq ; 

V 

V} 

i  b  2  7 

3623 

end  do  1 n j 

.  V, 

3629 

do  1=1 , neq 

m* 

3o30 

i  c  i  =  i  c  r  •,  i  > 

3631 

if  ( ici  .ne.  0  >  D1.  i  ■  =  tc  oi ici ) 

■"-.“j 

3332 

end  do 

3633 

c 

URITEC33,Aj  '  -  final  displacement  solution  - 

ft 

3634 

c 

WRITE  133,1091)  tb(ij) ,ij  =  l,neq) 

3635 

REU IND  NL 

& 

3636 

00  NJ=NBLGCK ,1,-1 

& 

% 

363? 

NC0NST  =  (NJ-l)AN£uB->-l 

3633 

NU=NCQNSI+NEGB-1 

v£* 

3639 

WRITE(NL)  (B(  IJj  ,  I3=NC0NST,NU) 

§T 

3640 

END  00 

3641 

••V 

3642 

call  ttime ( ttsub 14)) 

*  *  « 

3643 

•.V 

3644 

do  1=1, neq 

3645 

r ( l ) =0  . 

£ 

3646 

end  do 

s7,'« 

3647 

rewind  15 

3648 

do  n j  =  l  ,nblock 

%\s 

3649 

DO  I J  K  =  N  S  B  0 ,  fl  S  B 

•  *  < 

3650 

A (  IJK ) =0 . 0 

3651 

END  DO 

3652 

read  (15)  ( a(  IJK ) , I JK  =  I , NSB0) 

V 

3653 

neons t  = ( n  j - 1 ) Aneqb 

• 

•  ■> 

3654 

i  J^0 

\"A 

3655 

J 1 = 1 +NC0NST 

3656 

do  i=l,neqb 

3657 

) J=i J+1 

B 

3658 

in=i+nconst 

3659 

r  ( l  n )  =  r  (  i  n )  *  a  (  i  j )  A  t>  (  i  n ) 

Vs 

3660 

end  do 

v> 

3661 

do  j=2,n&6ND 

v  ^ 

3662 

do  l  =  1 , n e q b 

o 

3663 

in=i +nconst 

K?  A 

m 

3664 

jn=  j  +  nconst  + 1  -  1 

3665 

11=1 J+1 

\  *>, 

3666 

r  ( in )  =r  ( in )  +  a  (  i  j )  Ab  ( jn ) 

% * v 

*  v« 

3667 

r  (  j  n )  =  r  (  j  n )  +  3  (  i  j  )  A  b  ( l  n ) 

3668 

end  do 

■W 

3669 

end  do 

i 

3670 

end  do 

TV 

3671 

c 

WRITE ( 33 , A  >  '  -  r  vector - ' 

3672 

c 

UR  IT E( 33, 1091 )  ( r (  l  j )  ,  l j  =  1 ,  neq ) 

b-68 

\\  * 

1 

■■mb 

aauM 

IT. PI"  WT  V  n*  *■ 

3  G  7  4  C 

26"  5  C  Correction  for  thermal  case 

3676  c  To  find  the  mechanic al  loads  subtract  the  thermal  loads 

3677  c  frail  R<  A) 

3678  c  (  It  is  assumed  no  external  loads  are  applied  at  double  nodes 

3678  Rewind  15 

OdoO  nsb  1 -neqbAiub  and 

3681  do  nj=l,nbloek 

3632  read  (15)  (  a i  i  j  i  ,  l  j  =  1 , n  sfco ) 

3663  neons t= ( n  ]-l ) Aneqb 

3684  do  i j=l , neqb 

2135  r ( i j+ncons  t / - r 1 1 j ♦ neons t ) -a ( nsb 1  + 1 j ) 

3666  end  do 

368?  end  do 

3633  N=NUnNP 

3689  ITR'  1  -  ITR  - 1 

3690  UR I T  E (  33 , 582 )  ITR i 

3691  582  FORMAT  Uhl,  HlVl  STEP  «  ',14,  '  $$$**♦$  '/IX,  40(1H . 

3692 

u693  UR  ITE ( 33 , A  >  AaAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAaaaaA 

3694  UR  ITE(  33 ,  A  >  - NODAL  DISPLACEMENTS  AND  FORCES  IN  SuLEu--- 

3695  UR  ITE (33, a;  AaAAAAaAAAAAAAAAAAAAAAAAAAAAAAAAAAAaaaaAaa 

3696  CC  UR ITE (33, A)  '  ino  aech.  loads  at  the  double  nodes) 

3697  UR  ITE (33, 20034) 

3698  UR ITE ( 33 , 20035) 

3699  20034  FORMAT  (/ /  2X ,  75  ( 1H- )  .• 

3700 

3701  NAUX=1 

3702  DO  500  N=i,NUMNP 

3703  IFLAG-Q 

3704  DO  250  1=1,3 

3705  D(  I) =0. 

2706  0(  1  +  3) =0 .0 

3707  150  IF ( ID (N,  I > . LI . 1 )  GO  13  250 

3708  ION  1=  ID  *.  N,  I ) 

2709  IF ( icr (  IDNI) .NE.O )  IFLAG=  1 

3710  200  D  (  I )  =  B  ( N A U .<  > 

3711  D ( 1+2 ) =R ( NAUX ) 

2  712  N  A  0  *,  =  N  A  U  X  +  1 

2713  250  continue 

3714  C 

3715  i  IE1.  INTER  .  LE .  J .  AND .  It  LAG .  EG .  0 )  GO  TO  500 

3716  U  R I T  E  (33,2004'  N ,  (  D  •  I  ,1=1,6) 

3717  C 

6713  500  CONTINUE 

3719 

3720  1091  for  m-.it  -.  ,  o  jl  2 . 5  > 

3721  2004  FORMAT ( 2X , 15,6612.5; 

2  72  2  UklTE'  j.j,  _ u u - -i  / 

3723  20035  FORMAT  CX,‘  NUDE  ',  6  s. ,  ■  0  '  ,  1 1 X ,  '  V  ,  1 IX,  '  U  '  ,  10X,  '  F:; '  ,  1  On  ,  E  .  , 

3724  .  10r. ,  ’  t  c  '  /  2;.  ,"5  ( 1H  -  )  ) 


3727  ENERGi. 1; =0.0 

3728  ENERG ( 2 ) =0 . 0 

3720  ENERG<3)=0.0 

3730  DO  IPAIR=1 (NPAIR 

3731  MP1=NPC(1, IPAIR) 

."32  NP2=NPC<2,  IPAIR) 

j733  DO  IDG=1 , 3 

373-1  NB1=ID(NP1 ,  IDG) 

3735  HD2- ID ( NP2 ,  IDG ) 

373d  C-  UR  ITE ( 33, A )  '  NP1 , NP2,ND1 , ND2'  , DPI , NP2,ND1  ,ND2 

3737  C-  UR  ITE ( 33 , A )  FDRCl.Bs'  ,FGRC1 ( IDG, IPAIR) , HINDI ) ,B(ND2) 

3738  n 3u:;=n;: i  idg,  ipair  s 

37  39  IE  UD1  .GT  . 0 .  AND . ND2 . GT  .  0 .  and . r, au;, .  ne . 0  > 

3740  .  ENERG  ( IDG)  -  ENERG  ( IDG  - 1  FQRC2 1  IDG,  IPA  IR )  AB  (N02 )  + 

3741  .  EORCK  IDG,  IPAIR)  ABdlDl  1  >*0.  50 

3742  END  DO 

3743  END  DO 

3744 

3745 

3 "Mb  DO  IB  =  1 , NB 

3747  NPO=NBC ( IB ) 

3748  c  DO  IDG=  1 , 3 

3749  idg=if  i::(  it«> 

3750  ND0=ID(NP0,ID6) 

3751  IF(NBQ.GI.O)  ENERGY IDG) -ENERG! IDG ) -EQRCNB ( IDG, IB ) AB ( NDO ) AO . 50 

3752  e  END  DO 

3753  END  DO 

3754 

3755  UR  IIE ( 34 , A ) 

3756  .  '  -  ENERGY  RELEASED  in  (  y,  z  )  directions - ' 

3757  UR  ITE ! 34 , 1048 )  ENERG 

3758  IF  ( ITR.EQ.2)  UR  ITE ( 19 , 1049 ) 

3759  WRITE! 19, 1048)  ENERG 

3760  1048  format  i  5;: ,  3  (  g  1 5 . 8 , 3x ) ) 

37b]  1049  format  ( 5;; ,  7X  , '  X  '  ,  1 3X , '  Y  '  ,  18X , '  Z  '  ) 

3762  UR  ITE  (  34  ,  A  )  '  =  =  =  =  =  = 

3763  END  IF 

3764  DO  IPAIR=1 ,NPA  IR 

3765  NP 1 =NPC ( 1 ,  IPAIR ) 

376b  NP2=NPC(2,  IPAIR) 

3767  DO  IDG=1 , 3 

3".d  N01=IB(NP1,  IDG) 

3769  ND2-ID(NP2, IDG) 

3770  E0RC1  ( IDG,  IPAIR ;  =  R ■; ND1 ) 

3771  E0RC2(IBG,IPAIR)=R!NB2) 

37"2  C-  UR  ITE ( 33 , A )  'NPI ,NP2,ND1 ,ND2'  ,  NP1 , NP2,ND1 ,ND2 

3773  C-  UR  ITE ( 33 , A )  '  IDG, IPAIR,  FORCI , F0RC2 ' ,  IDG , IPA  IR , FORC 1 (  IDG ,  IPA  IR > 

3774  C-  .  E0RC2( IDG, IPAIR) 

3775  END  DO 

3776  END  DO 

3777 

3778  DO  IB=1 , NB 

2"79  NFO=NBC(IB> 

3730  DO  IDG= 1 , 3 


B-70 


3731  NDO= ID ( n P 0 ,  IDG ) 

3"82  FQRCNB ( IDG, IB ) -k ( NDO ) 

3733  END  DO 

3  76-1  END  DO 

3733 

j736  call  1 1  X HI e  1  1 1  5 U b  '  t  1 

3738  C  PRINT  DISPLACEMENTS 

0  738  l 

3  760  n3-N1 +NUnNr A6 

37-31  N  3  -  N  8  +  o  a  L  L 

j733 

j  9  3  LL1-1  •'  *  A  A  A  A  A  A  a  a  REASSIGNED  A  A  A  A  A  A  A 

3794 

a  7  9  5  CALL  PR  InTD  n  « 1 ; , h N 3 ) ,  A ^ N 3 ) , N E Q B  r N U H N P , L L 1 , N B L 0 C K , N E 0 , ,  1  . 

3796  CALL  T T I n 6 • T T ( 3  >  , 

3797  C 

3798  C  CONFUTE  AND  PRINT  ELEhEnT  STRESSES 

3799  C 

3800  N2  =  N1MALL1 

3801  N3=N2+NEQBALL1 

3302  LB=  ( NTQT-N3 )  /  ( NEQ  tl2; 

3803  CALL  STRESS  AW-ll ;  ,Au<2>  ,AiN3>  ,  NEQB ,  LB ,  LL1 ,  NEQ ,  NBLOCK  > 

a  80  4 

3305  C  CONFUTE  TInE  LOG  FOR  THE  DOUBLE  NODES  SOLUTION  PHASE 

3306  C 

3307  DO  K  =  l , 4 

3603  ttsub(K)  -  t t sub i 17  1 ) - 1 1 sub ( K ) 

3309  end  do 

3810  IF'.  INTFR.LE.3/  URITE  ',33,1985  )  (ttsub(L)  ,1  =  1,4) 


3311  1965 

format  •.  5,. , 

t  l  lii  e 

I  or 

tin  atm  formation  =' 

,  f  8 . 

3812 

.  ■  9 

time 

for 

si  j  1 1  n  =  ' 

,  f  8  - 

3813 

time 

to 

find  global  disp.  =' 

,:8. 

3314 

cr 

•  JM  ^ 

time 

to 

find  global  nodal  forces  =' 

f  o 

y  i  • 

3315  C 

381b  end  do  1 i t r 

3317  1995  continue 

3813  CALL  T T  I n E  i  IT  ( 4  ' 

3319  C 

3320  C  CONFUTE  TInE  LOG  FOR  THE  STATIC  SOLUTION  PHASE 

3321  L 

3822  DO  50  17-1,3 

3823  50  IT  77'  =  Tr.Kti  ,-TT(i;> 

j834  URITE  i  s  4 ,  -  0  0  0  j  i T T ( L ) , L - 1 , 3 ! 

3825  C 

3326  2000  FORMAT  \S ; .  4  3  H  S  I  A  T  I  C  SOLUTION  Tin-  L  0  G , 

3827  1  -  5,‘,,21hEUUATIUN  SOLUTION  =  ,  F8 . 2  . 

3323  2  5a, 21HDISPLACEriENT  OUTPUT  =,  FS.2  / 

3829  3  5a,21HSTRLSS  RECOVERY  =,  F8.2  /) 

3830  C 

3831  L  RETURN 

3832  RETURN 

3833  END 


b-  n 


C I  Cl  Cl  Cl 


SUBROUTINE  SESUL 

i A,B,HAXA,NO ,NBLOCK,NEQU,NAV,MI,NSTIF,NREB,NL,NR) 


b  8  3  3 
3339 

IMPLICIT  REALA3(A-H,0-2> 

3340 

realA4  tt(10) 

3841 

3342 

c 

CALLED  BY:  SOLEQ 

3843 

COMMON  /ELPAR.-  NP\14;,N0mNP 

38  44 

COMMON/CRK/nCRKD ,  ICR ( 3000 ) 

2345 

c  ~ 

DATA  ICR/O, 1,2, 0,0,2, 0,4/ 

3846 

C“ 

DATA  I3T/-1 ,  -2 ,  -3 ,  ’■4. 

3847 

C  *" 

DATA  DISP-  - .  0 , 3 . 0 , 2 . 0  ,  b  .  »■ , 

3b44  COhMGN/CRK/NCRKD,  ICR (9000 >  !  NEC) 

3345  c-  DATA  ICR/O , 1 , 2, 0 , 0, 3, 0, 4/  'change  CVT , CVT2  line  also 

3646  c-  DATA  I3T/-1 , -3 , -3, -4.  !  IST(NCRKD) 

3347  c-  DATA  D  ISP  -  1 . 0 , 3 . 0 , 2 . 0  ,  b  .  2 , 6  AO .  0/  IDISP'.NEQ; 

2b 48  COmmON/TmT/TmA* \ 600 , 600 TOOL ( 600 ), TCQL2( 600 ), fCOLM ( 600 ; , 

j  3  4  9  .  I S  T  (  6  0  0  ; ,  R  (  2  0  0  0  ; 

3850  D  IhENS  ION  A  i  NAO  ) ,  B  ^  NA1.1 )  ,  nAXA  ( (1 1 ) 

3851  call  tt  me  ( 1 1 1 1 )  ) 

3852  INTPR=100 

3853  in  INTPR.LE.2>UkITE(33,A) ' NO ,NBLQCK , NEQB , NAV, M I ,NST IF ,NRED , nL , NR  . 

3654  if (  INTPR . LE . 2 ) WR  ITE( 3 j ,  1029 ) , NO ,NBLOCK , NEQB ,N AO , MI ,NST  IF , NRED , NL , NR 

3855  1023  f  ora  at  ( 2;: ,  12i8 ) 

3856 

3857  if (  INTPR. LE. 2)  UR  ITE ( 33 , 1028 )  (  ICR (  IJ ) , I J  =  1 , NEQ > 

3858  if  <.  INTPR.  LE.  2)  UR  ITE <  33 , 1028)  <  1ST  (  IJK ) ,  I JK  =  1 ,  NCRKD ) 

3853  1028  FORMAT (  2X,20I4) 

3860  if  ( INTPR. LE. 2)  Uk  ITE ■- 33 , 1030 )  DISP 

3861  1030  FORMAT  >.  2X ,  2CF6 . 3  ) 

3362  MM  = 1 

3863  MA2=MA  -  2 

3364  IF ( MA2 . EQ . 0 )  nA2^1 

3865  INC=NEQB  -  1 

3866  NUA=NEOD An A 

3867  NTB=  ( MA-2 ) /NEQB  t  1 

3363  NED^NTBANEQB 

3363  NEBT=NEB  +  NEQB 

3870  NUO=NEQBANO 

3871  NUVV^NEBTAnO 


N 1  =NL 
N2  =  NR 

if (  INTPR. LE. 2; 

•  U R  IT  E  ( 3  2 ,  a  ,  rim ,  iii  j  - ,  i  fiC  ,  i ie cjb  ,  nw a ,  n t b ,  n e b ,  ne b  t ,  n w  v  ,  n  w  v  v 
if (  INTPR. LE. 2) 

.  UR  ITE ( 33  ,  1029;  ,  min ,  .n  a2 ,  inc  ,  neqb  ,  nwa ,  ntb ,  neb ,  nebt ,  nwv ,  i  iw>. 
REWIND  N3IIF 
REWIND  NRED 
REWIND  N 1 
REWIND  N2 


if  (  INTPR. LE. 2)  WRITE*,  33,A)  '  NAO=',NAO 
DO  I  J=  1 , NAO  ! AAA 

A ( I J ) =0  .  ! AAA 

B 1  1 3 ) -0 .  ! AAA 

END  DO  'AAA 


->891  AAA  Taking  the  npair  coeffts.  out  and  placing  in  a  vertciai 

3892  C-  NCRKD  -  TOTAL  NO.  OF  ADDITIONAL  COLUhNS 

3893  IF(  INTPR.LE.l)  URITEi33,A)'  IB, JB,  1,3,  ICI,  ICJ,  IJ,  I  ICJ, J 

3394  NO=NAV -NCRKD AN EOB 

3895  DO  1=1, rt I 

3  3  9  G  DO  J  = 1 , N C R K D 

339"  1 3  =  I t  i.  J  - 1 a i'.  I 

3393  Eli  13  i=0. 

3399  END  DO 

3900  END  DO 

3901  DO  N  J  =  1 , Hi.-. LOCK 

3902 

3903  DO  3  =  1 , N l  1 1  [■ 

3904  IJ=( J-l )AnI 

3905  IN  J  =  NEOt. t ,  J-i  .■  at.  i 

390G  DO  1  =  1 , n A  - 1 

390?  13=13+1 

3903  INJ=INJ<-1 

3909  B<  IJ  In  J; 

3910  END  DO 

3911  END  DO 

3912 

3913  do  j=l,ne;, d 

3914  l  j  =  in  at',  j  -  i ;  A  in  i 

3915  do  i=ma,n.i 

3  9 1 G  b  U  j )  =  0  . 

391?  l  j  =  l  j  + 1 

3918  end  do 

3919  end  do 


k  ErtLl  ■.  N2  I  1 1  1  nl  IJ,,IJ-l,Nu) 

N  C  0  N  S  T  =  N  E  0  D  a  ■,  N  j  -  i  ; 

DU  I b  = 1 , N l U b 

DO  J B -  1 , n A 

UmJc-IiaNEOD+ID 

1  =  ID  +  NCON'oT 

3= JD+NluNGT r ID  - 1 

IF*.  I .  L E  .  n E o  .  AN D  .  J  .  L E  .  N E u /  THEN 

IC  1=  ICR  (  I- 

IC  J  =  IC  R  J  > 

J2  =  JD+  ID-1 

J2  IC  1  =  J2* ( ic 1-1 ’ An  I 

IB  IC  J  =  IBa-  ■  I C  J  —  1 .  a  n  I 

IF  t  IC  I.NE.O  '  ti  ICICI  i  -  A  IJ) 

IF (  ICJ.NE.O)  b '  IB  ICJ  ■  -  A (  IJ) 


IF (  I C  I . , ( E  .  ; . A N D .  1 2  J  .  r<  E  . J i  THEN 
THAT i  ICI,  I C  J ; -  A  1  13) 

THAT'.  IC  I,  ICI,  A*  IJ) 

J2 IC  1  =  J2  +  ICI-1  -  ‘ill 
B  1 32  IC  I  ■  =  0 . 


n.  ■  ,  \  ^  -s. 


J  ^  m  TOPTOtro a  .1 A  ,■.  ■.  M.  W  v  7— 


3343 

IBICJ  =  lfeM  1CJ- 

1  )  Ml  I 

39*1  A 

B(  1BICJ>  =0- 

39  45 

END  IF 

3946 

394? 

IE ( INTPR .LE . 1 ) 

W R  IT  t  ■.  3 3 , 1 0  i  6  ;  I B  ,  2 B  ,  1,2 

,  IC I  * IC2, 12, 1102,2101 

3943 

1013 

F  0  ft  rt  A  T  (  2  A  ,  'J 1 3  , 

F19 . 3  ■ 

3949 

I F  (  ICJ.NE.v.uk 

.  It  I .  ilE  .  V  >  Trttf! 

3950 

A  (  1 J  ;  -  0  . 

3  951 

IF  U.  EG.  2;  A*.  I 

J  i  '  1  . 

3953 

END  IF 

3  v  5  3 

ErlO  IF 

i  9  5 

END  DO 

"  •*.  c  c 

END  DO 

i  V  Jb 

395? 

r,  1  ]  -nfcqOA*  j 

3953 

00  1  =  1 ,  ri  e  q  t* 

3959 

rii  j  =  m  jf  1 

3960 

ici  =  icr  ( i  *ncur< 

St.1 

3961 

if  ( i c l . n e . 0 i 

t  h  e  n 

3963 

tool  I ic  l )  =  il  ni 

I  > 

3963 

3  ( n  i  j  )  -  0 . 

3964 

end  if 

3965 

end  do 

3966 

396? 

N  1 J  =MU 

3963 

DO  J=I ,NC RKD 

3969 

DO  I- 1 ,NEQt> 

3970 

N  I  J  =  N  I  J  +  l 

397  1 

IJ  =  I  +  U-O.MlI 

3972 

A  (  N I J  >  =& l  12  . 1 

3973 

END  DO 

39  "4 

END  DO 

3975 

29"6 

c- 

WRITE  (33,  •  -■ 

n  J - ' , N  J , ■  keoroered 

A  -rtATRlX' 

2077 

IF <  INTPR.LE. 1  ) 

then 

*■  ,  •.  ~i  .~. 

*J  .  '  u 

DO  I  =  1 ,  N  £  u  P 

3970 

IA- iN J- 1  > ANEOB 

r  I 

3980 

WRITE!  33,1019) 

iAl 12) , 1 2  -  I , NAV , NEQB  ) 

3981 

1019 

FORMAT  <  2 X  ,  1  F9 

.  J  ) 

3962 

END  DO 

3  9  b  3 

end  if 

3334 

3985 

3986 

URITEiNli  A 

398? 

U.s 

«*D 

CO 

CO 

END  DO  '»2  - 

1  v  *-  r' 

3989 

3990 

REWIND  rU 

3991 

REWIND  NET  IF 

3  3  9  2 

DO  NJ  =  1 ,  NF-LOCk 

3393 

READ  -  N  1 )  A 

3394 

WRITE (NEC  IF.  « 

3995  END  DO 

3996 


t  -  '  4 


\ 

\ 


v 


V 

V 
> 


«b" 


>1 


2] 


-,V, 


.  w\  ✓.  «rj 


-%-j 

,SJ 

sj 

vl 


'  *,  AA 


•t  ‘J  -1  i 

DO  110  N  =  2 , tt  1 

1  r  “■ 

1  .  J  fc, 

IE  ul.LE.nA)  THEN 

40  53 

KU  =  KU  a  NEQB 

Ac  5  4 

KK=kU 

4b'5  5 

nn  =  M 1 N 0  ( N ,  Krt ) 

A  5  6 

ELSE 

1 1 J  J 

KU=KU  -  1 

i  TO 

1  ,  ,  <_) 

t.l  =KU 

A  >:  5  '3 

IE  .  N .  L  E .  N  E  Q  B  )  u 0  TO  14b 

AbbO 

nn-nn  -  1 

■‘Obi 

EnD  IF 

4  b  1 2 

1  4  0 

DO  160  K -  1 ,  nri 

1  JbJ 

IE  ( A ( KK ) )  110, lbb.il. 

40  6  4 

160 

KK  =  KK  -  INC 

A  b  o  -j 

no 

HAXA  l  N  )  =  KK 

A  '  j  t  u 

A  v6  7 

IE  A (  1  )  )  172,174,  176 

A  0  u  3 

174 

KK=(NJ-1 >ANEUB  t  l 

A  Ob  9 

IF  (KK.GT.NEQ)  GO  Tu  59v 

4070 

IF( INTER. LE.l)  WRITE  133 

AO?  1 

STOP 

4  07  2 

172 

KKMNj-1 ) ANEOB  r  1 

4073 

4074 

C-- 

IF(INTPR.LE.l)  WRITE 

4073 

4  j 76 

A  AAA 

FbCtariue  leading  block 

4077’ 

4073 

176 

DO  200  N  =  2 , NEQB 

4079 

NH~flAXA  i  N ) 

4080 

IF  i NH-N J  200,200,210 

4081 

210 

KL=N  a  INC 

4082 

K  =  N 

4  'J  b  3 

D  =  0 . 

4  0  b  4 

DO  220  K  K  =  K  L ,  N  H , INC 

Abb  3 

K  =  K  -  1 

AObb 

AKK  =  A  1 KK ) 

A  0  8  7 

C=AKK/A ( K ) 

A  0  b  6 

D-D  +  CAAKK 

40  89 

220 

A ( KK ) =C 

4090 

A  ( N  )  =  A  (  N  )  -  D 

4091 

A  092 

IF  ( A ( N ;)  222,224,230 

A  0  '0  3 

224 

KK=(NJ-1;ANEQB  a  n 

A  0  9  4 

IF  (KK.GT.NEQf  GO  TO  590 

409  8 

IF  (  INTPR. LE.l)  WRITE  '.33 

4096 

STOP 

4097 

«  —  ^ 

KK= ( N J - 1 ) ANEQB  a  n 

4098 

c  -- 

IF (  INTER . IE .  1 )  WRITE 

i  v  J 

4100 

I C  -  N  E  0  fc 

■1 1  O'  1 

DO  240  0=1 ,HA2 

4  102 

rt  J  =  tt A X A (  N a .]  )  -  lb 

1103 

IE  (PlJ.LE.N)  GO  TO  _4b 

4  1  b  4 

KU=H  I  NO  <  .1 J  ,  NH  ) 

*  AAA 


AAA 


1  «AA 
1  AA  A 


•no  5 

KN=N  *■  IC 

4 1  v  6 

C-0 . 

41u7 

DO  200  KK  =  kL,nU,  INC 

4  I  0 O 

300 

C=C  ♦  A  ( K  K  •  a  A 1. 1.  +  It 

4  1  O'-) 

hi  (  KN  )  -A  1  LN  i  ’  C 

•ti  .  : 

240 

IC-~  IC  *  NEQB 

4111 
4i  i; 

K=N  ♦  NUA 

■:  1  i  - 

DO  4  j  0  L  -  I  ,  N v 

4  114 

K  J  =  K 

4  1  IS 

C  =  0. 

4110 

DO  440  KK  =  r\L  ,  NH ,  INC 

-111? 

K  J  =  K  J  -  1 

•1113 

4  40 

C  r  C  +  A  i  K 1  /  >.  A  i  6  J  ) 

-1 1  1  3 

A  \  K  )  =  A  (  K )  -  C 

•n  :o 

4  jO 

K  -  K  t-  N  E  Q  B 

4121 

4122 

200 

CQrlT  IrlUE 

4122 

IE  (INTFR.LE.  1,<  UR ITE • 33 , k )  '  --  AFTER  FACQRIZING  LEADING  t'Luc 

•1124 

I  tt  x = N  E  Q  B  k  k  n  A + N  0  . 

4125 

DO  I=l,NEuB 

4 1 2u 

c  - 

IF  <  INTFR.LE.  1  •  UR  ITE  \  33 , 1020  '.•  (At  I J ) ,  IJ=I,  IrtX,  NEGBj 

•1127 

l n  x  = lnx  + 1 

4123 

END  DO 

412'-) 

1205 

FORMAT  ( 2x ,  1  vov  .  2  i 

4130 

4131 

4132 

AAA* 

Carry  over  into  trailing  Mocks 

4133 

4134 

DO  400  N  K  =  1 , N T fc 

4135 

IE  i  INTFR.LE. 1 >  UR  ITE ( 33 , a ;  N J , NK  ',NJ,NK,'  B-  HAT' 

4136 

IF  ( i  NK  +  N]  i  . GT . N BLOCK )  GO  TO  400 

4137 

N  I  =  N 1 

4133 

IF  ( (  N J  .  EQ . 1 ; . Ok . i NK . £u . NIB  /  )  NI-NjTIF 

:  i  3  3 

READ  ( N I >  1 B-  I J )  ,  i M ,NAO  • 

4140 

•1141 

4143 

L- 

IF  (.  In TFR  .  LE .  1  ••  uk  ITE  i  33 , 1 020 )  ■  Bl  11 ) ,  IJ  =  1  ,NAO  ) 

•114  3 

rtL-rlKANEOB  ♦  1 

4144 

rtk=n  IN  0 1  (  ne  - 1  .■  k  N  E  0  B  ,nl> 

4145 

IF  n A  .  2U  .  1  1  nL  -nk 

4146 

n  D  =  n  I  -  n  L 

4147 

KL=NEG6  f  u<K - 1 / ANEORaNEUB 

4146 

N  - 1 

4  149 
4150 

DO  500  n-nL,nR 

4151 

NH  =  nAXA ( n  ) 

4152 

CL-KL  ♦  NtOB 

4  15  j 

IF  (NH.LT.kL.  Gu  TO  5v5  !  AAA 

4154 

K  =  N  END 

4155 

D-O. 

4156 

DO  520  t.  i .  - K L  ,  Nli ,  lNL 

•1157 

C  ~  A  (  k  k  )  M  •  i.  ' 

■1158 

D  :  D  r  C  AA  1  k. 

4159 

A  ( k  K  )  =  C 

|  4160 

520 

K=K  -  1 

r 

4161 

B(N)=B(N)  -  D 

C; 

4162 

LE  (MD.LE.O ;  60  TO  560 

K' 

4163 

IC=HEQB 

K'. 

4164 

HQ  540  3  =  1, nit 

fr) 

4166 

nJ=f1AXA(H  +  J  ■  -  IC 

■ 

4166 

IE  (rtJ.LT.KL)  6  0  TO  546 

*  » 

416/ 

KU  =  H  INC  I nO , NH ) 

,v 

4168 

KN=N  ♦  IC 

4164 

c=o. 

* 

4170 

DO  575  KK=kL,KU,INC 

o- 

4171 

575 

C  =  C  +  A ( KK  }  AA  ( KK  + IC 

1 

4172 

8(KN)=fc(KN>  -  C 

P 

4 173 

540 

1C=  IC  +  NEQ6 

& 

4174 

/C 

4175 

580 

KN=N  +  NWA 

M 

4176 

K=NEQB  +  NWA 

hi 

A. 

4177 

DO  610  L  =  1 ,  NV 

t 

4178 

KJ=K 

5 

4179 

C=0. 

« 

4180 

DQ  620  KK=KL , NH , INC 

V* 

.» 

4181 

C  =  C  +  A ( KK ) AA i K J  ) 

*w 

•.* 

4182 

620 

KJ=KJ  -  1 

a 

,\ 

4183 

B(KN)=B(KN)  -  C 

£ 

4184 

KN=KN  +  NEQ& 

4185 

610 

K=K  +  NEQB 

« 

4186 

r 

4187 

505 

ND=HD  -  1 

r, 

4183 

500 

N  =  N  +  1 

■. 

4189 

I 

4190 

IE  (NXB.NE.l)  00  TO  560 

i 

4191 

WRITE  ( NRED )  A , nAXA 

• 

4122 

DO  570  1=1 ,  NAV 

V 

4123 

570 

A ( I>  =  &<  I> 

*» 

4 1 2  4 

60  TO  600 

i 

s 

4125 

56u 

WRITE  ( N2 >  „ 

4196 

. 

419? 

1  »\  •) 

CONT INUE 

4196 

4199 

n=rtl 

4200 

N 1  =  N2 

4  261 

N2  =  rl 

4  202 

590 

WRITE  (NRED;  A  ,  n  A  X  A 

4  20  3 

4  2  0  4 

600 

CONTINUE 

4205 

4206 

C  ill  ttiilelttij.1; 

4  207 

4208 

AAAA 

Vector  b-acR-  ,‘jt' :  ii  tijtiu 

4209 

4  210 

DO  700  K  =  1 ,  NW'.'V 

4211 

700 

m k  >  =o  . 

4212 

REWIND  NL 

-s  ,> . 


;  \v>v  .-v 

>  _%  ^\.  .  A.  ^  *  •  • 


\  /.  -•„■< 


tC4!  *5 


BG  300  nJ-1,NBLjlK 
&  A  C  K  S  P  A  C  £  t!  BED 


:h 

215 

-lu 


217 

READ  (NREB  )  (A1.  13  )  ,  IJ- 

-vi  3 

c  -  - 

UR  IT 2 ( 33 , A )  '  Vector  b 

210 

220 

c  - 

IF  !  INTER . l£ . 1  ■  WRITE (3 

■  •  t 

BACKSPACE  ffr'EB 

w  —  J 

K=NEBT 

J  *14 

BG  310  E=1,NV 

22-1 

BG  22 0  I-l.wEB 

•\  *'  c 

-  —  >J 

&  '  K  i  -  B  h.  -;i 2 ft 3  ’ 

-  -0 

o  2  0 

k-K  -  i 

*7 

310 

K-K  <•  N F  !-■'  2  r  NEB 

223 

KN=0 

220 

kk=NWA 

230 

MB  IF-NEgB 

2  j‘1 

IF  (MJ.Eu. 1 /  NB iF  =  M£uB 

232 

BO  353  L - 1 , M M 

233 

BO  350  K= 1 , NB  IF 

2  34 

850 

B  (  K  M  +  K  -  A  f  K  K  +  K  > ,  A  ( K  > 

235 

K  K  =  K  K  N  E  0  B 

2  36 

355 

K N  =  K N  v  MEET 

237 

IF  t  nA .  EG .  1  i  60  TO  915 

233 

ML=NEQB  *  1 

233 

KL=NEG6 

2  40 

BO  360  n  =  nL , n  1 

2-11 

K  L  —  K  L  t  N  E  U  B 

2  4  2 

KLNrtAXA  ■.  n  i 

243 

It  (KU-KL)  360,370,370 

244 

370 

K  =  M  E  0  b 

243 

Krt=f1 

24c 

BO  330  L-i.NV 

2  4" 

K  J  -  If 

243 

BO  390  KK-kL , KU , INC 

24  9 

&  O.  J  >  -&  K  J  -  A'.  EK  .'.itu 

250 

£  9  0 

kj-kj  -  i 

251 

k  rt = k  n  *  o  E  b  T 

252 

320 

k  =  K  *  '( E  B  T 

-53 

360 

COMT  IfiUE 

234 

M=MEGB 

•i  r*  c.* 

-  J 

Bu  910  I  2, MEG B 

25G 

KL-N  r  I H  C 

-  j  / 

KU=nAAH  ■.  M  1 

tr  ."i 

-JO 

IF  >. KU-t;L ;  9 lw, 920, 920 

^  Ci 

920 

K  -N 

-t>0 

BG  920  L  =  i ,  ri V 

Col 

K  J  -  K 

CG2 

BO  940  t.i>  =  i  -  ,  t  U  ,  INC 

-G3 

i:  J=kj  i 

2o4 

940 

B(K3  >  -b  •  r:  i  .•  -  A  1  i- 1  At- 1 

-U  j 

930 

k  =  l  ••  ;iEt  I 

-Co 

910 

N-rl  -  1 

;,1020)  (A(IJ),IJ-1,NAV) 


(NBLOCKANEQB  -  NEG 1 


i 


L  •’  ) 


MAT' 


4267 

4268 

4269 

4270 

4271 

4272 


015  KK=G 
KN=0 

DO  950  L= 1 , NO 
DO  900  K- i , nEuB 
KK=KK  +  1 


4273  960 

4274  950 
42”5 
427G 
42"? 

4278 

4273  300 

4230 

4231 

4232 

4283  A  AAA 

4284 

4235 

4236 

4237 
4283 
4239 

4290 

4291 

4292 

4293 

4294 

4295 

4296 

4297 
4293 

4299 

4300 
‘.301 

4302 

4303 

4304 

4305 

4306 

4307 

4308 

4309 

4310 

4311 

4312 

4313 

4314 

4315 

4316 

4317 
4313 
4219 
4330 


A(KK)=B(KN+K) 

KN=KN  +  NEBT 

WRITE  (HI)  (  A  ( K  >  ,  K  - 1 ,  N  U  V  ) 

IFUNTPR.LE.l)  WR  ITE ( 33 , A )  Solution  — ; 

IF (  INTPR.LE.l)  WRITE  (33,1020)  ( A‘K) ,K=1 ,NUV) 
CONTINUE 

call  ttitte  ■.  tt 4) ) 

To  find  y  -  vector 

do  i=l,nerkd 

tcol2(  l ) =tcol  (  i  ) 

if ( ist(  i  ) .  le.O)  tcol(i)=0. 

end  do 

rewind  nstif 
backspace  nl 
nc2  =  neqbA(ua 
do  nj=l,nblock 

read  (nstif)  a 
ru  j=no 


read  (nl,1  i B ( l j > , i j=l ,nwv ) 
backspace  nl 
backspace  nl 
ni j=neqbA ( nv-ncrk d ) 


N I  J10=N0 

N  I J  2  0  =  N  E  U  6  A  (  N  0  -  N  C  R  K  D  ) 

do  J=l,ncrkd 
‘io  1  =  1,  j 
taij;<=0.0 

N I  J0=N I J 10+ (  I-DANEQB 
N1J=NIJ20+ ( J-l i ANEQB 
do  k=l,neqb 
NIJ0-NIJ0+1 
N I3=N  13+ 1 

tau:-;=tau;;-A  (  N  1 30  i  AB  ( N  13 
end  do 

t  w  a  t  ( l ,  j  )  - 1  in  a  t  (  i  ,  j )  f  t  a  u 
end  do 
end  do 

do  j  =  l,r.crkd 


&-80 


ll 


do  i=l , j- 1 
tmat(j,ii=tmat(i,j; 
end  do 
end  do 

do  i  =  l,,'.crkd 
*  au:-:  =  0  . 

N  IJQ  =  N  12 10+ (  1- 1 ) ANEQB 
do  k  =  l,neqc. 

N IJQ-N IJQ+ 1 

t  a  u  =  t  a  u  x  -  n  \  N  I J  0 1  a  t-  i  K  ) 
end  dc 

tCOl  1  -tool  (  1  ■  »t  j.j 

end  do 

IF  i  INTER  .  LE  .  1  ■  tnef: 

WR  ITEi 33, a /  - T;iAT,TC0L  towards  end  - 

DO  I=1,NCRKD 

UR  IIE ( 33 , 1 09 1  )  i TnA 1 1 1 , J ) , J  =  1 , nCRKD ) , TCQL ( I ) 

1091  form  at  .  j:-. ,  o-jl  2 . 5  ■ 

END  DO 
end  if 

e  n  d  d  o  1  n  j 

call  1 1 1  m  e  i  t 1 i  5  ,■  1 

if  (INTER.  LE.  2..'  WR ITE  ■.  32 ,  A  >  '  T I  HE  LOG  IN  SESOL - 

do  K  =  1 , 4 

1 1  (  k  >  =  1 1  (  k  «- 1  >  —  1 1  ■.  k  ) 
end  do 

if  ( INTER. LE. 2)  WRITE'; 33,995)  ( tt ( 1 ) ,  1  =  1 , 4 ) 

995  format i Id,. ,  Time  to  form  matri;  for  double  nodes  etc.=  ,l3. 
.  /10a,  Time  to  decompose  A  -  Matri;:  =•  ,  fB. 

.  ,10:;,  Time  for  vector  back  substitution  =  ,i8. 

.  .'10.;,  Time  to  form  THAT  ■-  ,18. 

1000  FORriAT  i/.  90H  STOP  *AA  ZERO  DIAGONAL  ENCOUNTERED  DURING 

1  1SH  EQUATION  SOLUTION,  / 

2  13/.,  1 8 H  EQUATION  NUMBER  =,  10  ) 

1010  FORMAT  (/  50H  WARNING  AAA  NEGATIVE  DIAGONAL  ENCOUNTERED  DU 

1  1 8H  EQUATION  SOLUTION,  / 

:  1 2 ,< ,  1 8  H  EQUATION  NUMBER  =,  16,  5X,  7HVALUE  =,  EEv.j  • 


RETURN 


oUBRCu i  iriE  mat  in  ■;  a  ,  n  ,  s ,  m  ,  determ > 
implicit  real a b  > a - h , u - z ; 

DIMENSION  Aid  00, 6  00  /  ,  B(600, 1  ) ,  IP  IV  01(600)  ,  INDEX  (600 

EQUIVALENCE  i  IROW,  JRuW)  ,  <  ICOLUil ,  JCOLUtt )  ,  (AMAX,T,SWA 

DETERM=l.o 

do  20  2~l ,N 

IP  IVOT  (  J  =  0 . 0 

do  550  i  -  i ,  rl 

A  M  A  X  =  0 . 0 


w 


4375 

IF <  IP IVOT ( J  > - i /  60, 105,60 

43/6 

60 

do  100  K=1,N 

4377 

IF ( IP IVOT CK >  —  1 )  30,100,740 

4o78 

SO 

IF < AMAX  -DABS iA(J,K))>  35,100,100 

43"9 

35 

IRQU= J 

4230 

ICQLUH=K 

4331 

AMAX -DABS ( A ( J , K ) ) 

4382 

100 

CONTINUE 

4  283 

105 

CONTINUE 

4  384 

4335 

IP  1001  (  ICGLLin  /  -  IP  IVOT  \  ICOLUrt) +1 

4336 

IE (  IROU-  ICOLUn )  140,260,140 

4237 

1 40 

DEIEkn=-DETERrt 

4333 

do  200  L=1,N 

4339 

SUAP=A ( IRQW , L ; 

4390 

A (  IROU,L)=Av ICOLUn, L- 

4391 

200 

A ( ICOLUN , L ) =SUAP 

4392 

IF ( M)  260,260,210 

4393 

210 

do  250  L=l,rt 

4394 

SUAP  =  B (  IROU , L ) 

4395 

6( IROU , L ) =B ( ICOLUrt, L; 

4396 

250 

B ( ICOLUH , L ) =5UAP 

4397 

260 

INDEX ( 1 , 1 )  =  IROU 

4393 

INDEX (1,2)  =  ICOLUN 

4  399 

PIVQI=A<  ICOLUn,  ICOLUn,' 

4400 

DT<  I ) =P IOOT 

4401 

A (  ICOLUn , ICOLUn )- 1 . 0 

4  4  02 

do  350  L  =  1 ,  N 

4403 

350 

A ( ICOLUH, L)=A( ICOLUn, L; /PIVOT 

4404 

I F  <.  n  ;•  330,380,360 

4405 

360 

do  370  L  =  l,fl 

4406 

370 

B ( ICOLUrt , L 1 -B i ICOLUn , L  > /PIVOT 

4407 

360 

do  550  L 1 = 1 , N 

4  403 

IF ( LI- ICOLUh )  400,550,400 

4409 

400 

T  =  A ( L 1 ,  ICOLUrt ) 

4410 

A ( L 1 , ICOLUn  >-0.0 

4411 

do  450  L=1,N 

4412 

450 

A(  LI  f  L )  =  A  ILl ,  L  j  -  Ak  ICOLUn,  DAT 

4413 

IF(rt)  550,550,460 

4414 

460 

do  500  L=l,rt 

4415 

500 

B  ( LI  ,L)=B(L1,L)-Bi  ICOLUn,  DAT 

4416 

550 

CONTINUE 

4417 

do  710  1=1, N 

4413 

L  =  N+1-  I 

4419 

C  — 

DETERM=DETERrtADT ( L i 

4420 

IF ( INDEX ( L, INDEX (L, 2 ) )  630,710,630 

4421 

630 

3R0U= INDEX  <  L , 1 ) 

4422 

JCOLUH= INDEX ( L , 2  > 

4423 

do  705  K=1,N 

4424 

SUAP  =  A ( K , J  ROW  > 

4425 

A(K,JROU»=A- C, JCOLUn; 

4426 

A ( K , JCOLUn  )  =8UAP 

4427 

705 

CONTINUE 

4423 

710 

CONTINUE 

V/VVj1 
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LISTING  u  P  THE  POSTPROCESSOR,  'PLOT' 


r'yrr 


3  !  — 

4  !  -- 

5  !-- 
b  !-- 
?  !  — 


3 

3 

10 
1 L 
^  -> 

13 

14 
it; 
it> 
17 
lb 
19 

30 

31 


33 

34 

35 
2b 

27 

28 

29 

30 

31 


33 


3b  1 


3b  1 

39 

40 

41 

42  7000 
4  3  ! 

44  1 
4t 
4  b 
47  1 
4  8 

49 

50 

51 


20 


53 

54 


THIS  IS  PROGRAM  FuR  PLOTTING  3-D  GRAPHS  USING  TEMPLATE 
ROUTINES.  tRGn  THE  uUT  Ur  KSAP  II,  THIS  PROGRAM  CAN 
SORT  OUT  STRESSES  AuO  CORRESPONDING  COORDINATE  LOCATION-. 
THE  STRESSES  nAl  bd  SCALED  CQNDEN IENTLY  AND  E'/E 
COORDINATES  CAN  PE  CHOSEN  TO  OBTAIN  DIFFERENT  SIZES  OF 
THE  SAME  3-D  PLOT. 


D  InENS  ION  *>  a  -  *1  v ) .  i  1  *  4 v  .  .^'.40,40) ,  STRESS  ( 1 j , 1 j , b , 10 ;  . 

WORK (3200) ,  iTr.E'.  lEv>  • . PENS  m3) .W IV  1(8) 

DIMENSION  n  E  A  Di  7 
C  H  A  k  A  C  T  t  R .» 1  -  F  1 L ;  i  r.  r. 

INTEGER  SI3 

DATA  10/ 5  /  .  i  -  Li.  7  ,  SwiiE  j  .  0/ , OUTF  IL/8 .0/  ,  FONTF I L / 1 1 . 0/ 

DATA  PCNS/1 .-.3.  1.1.1 

DATA  lOkTHL  ,  FPli .  -  a  .  -  1 .  1.20.0,8.0,8.0/ 

WRITE  ( 5 .  a  j  ’  til T l. l\  FILENAME' 

READ  ( 5 , 5 5 5 ; . F  1 L N n n 
FORnAT  (A) 

OPEN(UNIT=  luL.r ILE  =  t ILN An , STATUS= ' OLD ' ) 
URITE(I0.a>-0:SCREEn.1 : PR  INTER, 2: PLOTTER ' 

READ ( IQ , a )  1DEV 

READ  (  I0D.22) ,  UiEAlM,  I) , I-i.b) 

FORMAT ( 1 X  ,  o  A  4  i 

READ  (I0D,a)  nNUDES , NLOC 

IF  (NLOC.NE.li  CALL  S0KT2HRAD,  IOD , XX ,  YY  ,NX , NY  , STRE , nr.oUe-: , l 

IF  (NN0DES.EU.21)  GO  TO  899 

u"  ( n loc . ne . 1 )  ac  to  893 

READ ( IOD , a i NX , NT.NL 

Wk 1TE ( 5 , A  >  NX ,NY  , NL 

READ ( 1 0  D . a i (.at I) ,  1-1 .NX) 

W R I T E ( 5 , a ) ( X X ( I > , 1 - 1 . N A) 

READ (  IOD. a  ■  (  YY(  I ) ,  1  =  1 .NY j 
WRITE  (5  ,  *.  >  k  1 1  (  i  >  .  r-1  ,N  i  ) 
n::  =  n::-l 
r,y- ny-1 

READ  (  1L  Li  ,7000)  •  l  i  i STRESS  <.  1 , 3  ,  K ,  L )  , K=1 , 8 ) ,  I~  1  .NX  )  ,  3  -  1 ,  N I  >  .  1. 
FORMAT (23X.bE 15. it 

W  R  1 1 E  (  5 ,  /  ‘j  u  'j  )  i  s  (  l  S  T  R  E  SSl  1, J,K,L) ,K  =  1  ro> ,  1  =  1 , NX) , 

.  J  =  1 ,NY )  ,  L  -  1 . NL / 

WRITES  10,  m  Enter  stress  i  LATER  #' 

READS  10,  A)  -.  11  ,LN 
WRITE  (5,  A  jS  iJ.LN 
K  =  0 

DO  J-l.Ni 
DO  1  =  1.  iU 
K=K  +  1 

STRE(K)=STRESo( I. J . S 1 J , Ln ) 

E N D  DU 
END  DO 


C-  1 


&2&2£ 


J  J 


3b  c 

finding  stress  locstior,  coordinate 

37  c  -  - 

from  nodal  coordinates  for  0  node 

58 

do  l  =  1 , n : : 

59 

if  (i.gt.l;  ;:i:  ( i  )  =  (;;>;(  l  >  +  :::;  ( l  - 1  >  > . 

60 

end  do 

61 

(  r,x )  =  :::■:  ( r,:;+  1  ) 

b  2 

do  l - 1 . n y 

6  3 

if  (i.qt.l)  yy  ( l )  =  yy  (  l )  +vy  ( l- 1 )  ) 

6-1 

end  do 

b  3 

y  y  ( r,  y )  =  y  y  <  n  y  *  1 ) 

67  899 

CONI  INUE 

r?B 

NXNY  =  NXAN,' 

b  3 

SMAX--1.0E+30 

70 

SNIN=1 .QE+30 

DO  1  =  1 ,  N  X  N  Y 

~  2 

IE  (STkE<  1)  .GT.SNAX)  SHAX=STRE (  I  > 

7  3 

IF  (STRE( I) .LE.SHINO  3M  IN  =  3TRE (  I  > 

~4 

END  DO 

75 

WRITE (5. A) 'SMIN=  .So  IN.'  SHAX=  ' 

76  10 

WRITE! 10. k) 'EfEX.EY2Y.ETE2' 

n  7 

READ! 10 , A ) EX , EY , E2 

■78 

UR ITE < 10. A) 'TYPE  SCALE  FACTOR ' 

^  Cl 

READ!  10. A)  FACT 

or, 

DO  1  =  1.  MANY 

3TKE (  I)=STRE(  D/FACT 

■a;: 

END  DO 

Sj 

DO  J=1,MY 

■M 

I1=1+(J-1)ANX 

,  >  cr 

O  J 

12=11+ NX-1 

8  6 

11  =  0 

’37 

DO  1= 11 .  12 

B  >3 

11=11+1 

2!  1 1 , 3  >  =  3 1 R  b  (.  i> 

£  N  D  D  0 

?  1  c 

WRITE  (&5..0  (STRE(  l  i .  1=11  .  12; 

.*  — 

WRITE  (05. A)  ' - 

■'1 

END  DO 

9-1 

DO  J  =  1 .NY 

••r, 

WRITE(5,A'J,' 1' . v  2 (  I.J) .  1  =  1, NX' 

9 1\ 

END  DO 

1  1 

W  R  I T  E  (  5 , 7  0  o  0  )  (  3TRE  ( I).  1=1.  rlXM  Y  » 

9'J  c 

WRITE  (5.  A;  '  DEcOR.E  SCALING..' 

n r )  r  -  - 

SCALING  THE  COORDINATES - 

1  0 '  6 

CNAX=XX  < Na  > 

1  0  1  i. 

IF  (CNAX.1.T. YY(NY)  >  L  fn  A  X  -  Y  Y  (  N  f ) 

1  0  7.  6 

WRITE  ( 5  .  A )  ' CnAX '  .CNAX 

1  02  C 

CNAX=S.O/CNAX 

109  C 

DO  444  1=1. NX 

10  5  L4  4  4 

XX  (  I)=XX(  I !  A  L  (1 A  X 

DO  4  45  J  =  1 . N i 

i :  :■  ■  i  -i  5 

Y  Y  (  I )  =  i'  Y  1  I  >  A  C  M  A  X 

F  >.  -  II  > 


o  1  s-  merit 


SHAX 


'-Vt  ,\Y.V.V.-, 


110 
111 
112 
113 
1 1  4 
115 
11b  C 
11° 
lid 
112 
120 

121  C 

122 
123 
12-1 


131 

132  C-- 
13  3  L  -  • 


137  C  — 
133  C-- 
i  29  c-- 
HO  c-- 


Fr=N'i 

IF  (  ItlEV .  EQ .  2  )  C.-.LL  llCufu'ji 

CALL  USTART 

IF (  IDEV.EQ.  1 )  2A_L  uPbET  <  Ou  I'F  '  .UUTF  IL ) 

IF  ( IDEV.EQ.O)  CALL  ULi-A^-u 
CALL  UPSET  (  FnIF  ILL  "  ,  F  unTF  lL  • 

CALL  USE!  (  h j  i  >  \  1  b  '  1 
CALL  USET  <  '  2A.<  12  '  .• 

CALL  USET  ('Sr'.  Ii.T£ 

CALL  USET  (  'k.v 
CALL  USET  (  'Ul'.l.i 
CALL  USTUD  ■  « Iv * 

CALL  UVWPKl  H.O.iw...  v .  .  I  uy.  0 ) 

CALL  UPVSRF  t  :  a  l  ,  .* .  .  ;  ,  aN  ,  t  ,  F 1 ,  EX ,  E  / ,  £2 ,  PENS  / 

UP  HE  (5,  a:  tv,. 

IF  ( IBEU .  ECt .  -j  :  u.ti.L  „b.z 
FORMAT  ( Al  ; 

CALL  UEND 

STOP 

END 

subroutine  b.'  1 2 1  wvA j  ,  1CD ,  aP  ,  TP , NX , NY  ,2P , nnodc  5 , nloc  > 

THE  FOLLOWING  APE  TnE  STRESS  LOCATIONS  USED  IN  KSAP  II 
PROGRAM.  DEPEND  InG  un  Trie  REQUIRED  STRESS  PLANE  LOCATION 
SORTING  WILL  PE  DUr.E .  AVERAGING  IS  ALSO  CARRIED  OUT 
BETWEEN  AD  J  nL  Lit  i  wL-mEnTe  • 

LOC  -  LTREbi  uUTPUT  LOCATIONS  IN  SAP.... 


o  ~  - 1  j  5 

i  i  > 

H'-2?— 1. 

i  i  i 

?  —  15  —  c 

bottwin 


i  C-  '  i  i 


I  I  I 


lit  1  *3  >3  1  L' 


2- -  9--  I 

i  i  ) 

1 0 — 26  — 12 
i  {  | 

3— 11—  4 
too 


D  Im2nS  I  On  .« ;•  i  1  >  ,  i  i-  •.  i  / .  CP  i  1 )  .  LUC  i  7  t 

,  ,<  t  50 ) ,  Y  (to ) ,  2  1 5v ) ,  t  tut  •.  1.3.3),  10(3)  ,JD(2) ,  ST  RES  (  300 . 7  ,  u  t 


v  ,3.1-1,23,10.3*18,2.  15,25,11,27,21 
4,1'-, 22, 12. 5, 17,1/ 

2  N  T  E  R  -  T  i-.  2  3  3  f  i  u  .  (  1 , 2 , 3 , 4 , 5 , 6 ) ' 


DATA  IBM  I  ; ,19, 3. 14,23,10.6,18 
13,24,9.  0.20,4, lu , 22 . I- . 5 , 17, 
WRITE  l  S .  A  ENTER  :TR23S  Nu.( 
READ  (5,-.'  N.T 
READ  (100. a.  NUna.nONT .NONE 
READ  (  1 0 D . *  r  • LuGi  1  ■  ,  1- 1 , NLOC / 

READ  l  I  u  [>..•.  i  i  ;u  1 >  .  .  -  I  .  ft  0  N 1 1 

RLAU  t  1 0 D , a )  ■  ;  >  1  >  .  1-  1  .  NUN  1 ) 

READ  (  1 U  D  ,  a  j  i  2  t  I  .  1  -■  1  ,  H  u  f<  „  > 

IF  ( NNODES . Ln . j /  T 1 1 l N 
NUNX=2AN0na - ; 

NON  H2AN0N  i  - 1 
N0N2- 2ANuh2 -  i 
DO  111  1  -KUNA  .  i  ,  '  . 

J-  1/  2 


1G3  IF  (HOIK  I.2).NZ.O)  X  <  I )  =  X  ( 1  ♦  1 ) 

164  IF  ( MOD  <  1.2)  .EQ.O)  X  (  I)  =  (  X  (  I H  )  +.<  '  J  )  )  '2  . 

1  b5  111  CONTINUE 

166  DO  222  I=NONY,l,-l 

167  J=  1/2 

168  IF  (  MOD  (  1.2)  .NE.O)  Y  (  I )  =  i' ( 1  +  1  ' 

169  722  IF  (HOIK  1.2) .EQ.O)  Y  (  I )  =  (  Y  (  I  ♦  i  >  +■  Y  (  J  )  )  /  2 . 

170  DO  333  I =NONZ , 1 , - 1 

171  3=1/2 

172  IF  (HOIK  I.2J. NE.O)  Z(I)=Z(J*1> 

173  333  IF  (HOIK  1,2) .EQ.O)  Z (  I  >  =  ‘ 2 (  I  + 1 ) +  2 ( J ) > / 2 . 

17-1  END  IF 

173 

176  URITE  (5,.<u  '  SELECT  LEVEL  (s-coord.  No .  :  of  ::v- o  1  in?  ' 

1  '"7  DO  41  1  =  1  .NONZ 

17  3  -11  write  (5,51)  1,2(1) 

17  0  51  FORMAT  (  2X  ,  12 , 2X  .  F8 . 4 
130  READ  (5, A)  nlev 

101  1S  =  0 

182  IF  (MOD ( NLEU , 2 ) . NE . 0  )  60  TO  310 

183  C--  MIDDLE . 

134  13=2 

105  DO  20  1=1.3 

186  DO  20  1=1,3 

1  87  IF  (LOC(l)  ,EQ.  IDMTC.J.  l'o  60  TO  21 

! 5 3  2  7  CONTINUE 

195  GO  TO  26 

190  7 10  IF  ( NLEV. EG. 1)  60  TO  23 

101  13=3 

1  ■'*  2  DO  10  1  =  1.3 

193  DO  10  1=1,3 

194  IF  f  LOG  ( 1 )  .  EG .  I PmT  (3,1,  I  ■'  >  60  TO  21 

1  r‘  Z>  17  CONTINUE 

1  9 6  Ic  (NLEV.L G . N 0 N 2 )  6 0  IQ  26 

I''"’  2  3  13=1 

1.9  DO  11  1=1,3 

1  ’  9  DO  11  1=1,3 

IF  (  L 0 L  (  1 )  .  L U  .  1 1 M T  1 ,  J  ,  I1  )  60  TO  21 
-vl  1.  CONTINUE 

-■■■2  WRITE  '5.  a)  '..LEVEL  NO.  DO  EON  T  MATCH  WITH  LOG. 

273  .  NOS. 

204  STOP 

277  „l  CONTINUE 

-Vb  1)0  40  1=  1  ,2 

2  0 I D  ( I  >  =  0 

2  0  o  D  0  5  0  I  =  1  ,  o 

..99  DO  50  )'  =  1 ,  NLOC 

-13  IE  (  L:-C  (K  )  .  EQ  .  IFnT  '  1  i  ,  1.1)  )  THEN 

-11  I D  ( J  )  =  1 

-12  60  TO  40 

.1 1  3  END  IF 

214  -9  CONTINUE 

21 1  40  CONTINUE 

21-  DO  45  1=1.3 


IJ  to 


217 

30 ( I ) =0 

2 1 9 

DO  55  3=1 , j 

219 

DO  55  K  =  1  .  nLul 

220 

If  (LGC(K'.Eu.  !  D  n  T  ■.  J  2  ,  I 

.  .]))  THEN 

221 

JD(  I )  =  1 

•no 

GO  TO  45 

223 

END  If 

224 

55 

CONTINUE 

*)TiT 

-  -  J 

45 

CQNT  INUE 

226 

NEX=(NGna- i / .  2 

•*>  i 

Nx  =  0 

223 

do  70  j  =  1 ,  . 

22  9 

if  (ldili.-q.u.  .r.j.  os 

. li  go  to  70 

230 

1  A  (  1  d  3  /  .  :  m  .  G1  .  j ,  .  j  •  ^ 

.nor.-:  >  go  to  70 

231 

if  '.  i  o '.  2  > .  q  .  0  .  .i  i.o. ...  o  o  v 

j . 2 / . eq . 0 )  go  to  70 

TO'l 

N  X  =  N  X  t  1 

233 

Xf  (  N X  j  =  X  ■.  ; 

234 

70 

lGnT INUE 

235 

X?  t  NX  !  =X  •.  N 2 N  *  • 

'TO  KEEP  SIZE.. 

232 

X  P  ( 1 )  -  X  ( 1  • 

! TO  KEEP  SIZE.  . 

237 

nEY  =  <  NUfi :  - 1 : .  - 

233 

N  r  =  0 

139 

do  80  j  ■  1 .  r. ■: r. .. 

240 

x  I  \  j  d  \  1  -  .  ..•  q  .  v  .  j  r.  •  j .  j  .  ^ 

. i <  go  to  80 

241 

if  (  ]d  (  2  )  .  .  4  •  ■  j i*. d  .  j . 

.  riony)  go  to  30 

242 

] , 2) .rQ .0)  go  to  80 

243 

NY  =  N  Y  t I 

244 

Y  P  ( r,y  >  =  i  •  • , 

245 

80 

CONTINUE 

242 

YP(NY)  =  f  i  ft  On  t : 

'TO  KEEP  SIZE _ 

247 

i  P (  1)=Y'  1  1 

'TO  KEEP  SIZE.  .  .  . 

248 

N  E  Z  =  (  nun2-  :  >  /  2 

24  9 

If  i  N N 0 D 2 ; .  2  J .  b ;  I  h E i • 

250 

N  E  X  =  l  N  0  N  X  t  1  )  /  2  -  1 

w  J  i 

N  E 1  =  i N  0  N  T 1 1  .  '2-1 

252 

NE2= ( NUN- r i  • .  2  -  1 

J  3  J 

END  IF 

25  4 

N  E  X  Y  =  N  E  X  a  N  l  i 

JL  j 

w  E  -  N  2  X  i  a  N  E  2 

1  f 

-jU 

c 

P i d 1  n q  i  t i  -  1 . 

r. o . ;  3  -  1  o c  .  no  . 

_  w'  / 

Du  3 1  1  - 1 .  hl 

258 

DO  SI  2=1,NZGC 

~  3  :) 

READ  1  I  j  C1 .  .  2  .-  ...  2 2 . 

2.1.)  .1.-1 .83 

2  l  ■  3 

31 

CONT  1 N L 2 

i 

u  — 

FOR  MAT  ' -3,'.  .oi.o.u  ■ 

1 3  2 

N  N  -  W4  L . 

22  4 

if  ■  1 

2b5 

N  E  E  z  N  N  .*  n  E ; 

-  12  U 

:.)  f  --- ... iii.  u  i 

ri  o n wi r d o  3re  requ-red 

227 

K  -  C: 

-  o  3 

DO  2''.!  J  i  ,  •  :.  ; 

-  C  v 

Nl=N'»E»t*C'  * 

-  ? 0 

N  2  -  n  i  * ;i  l  >  -  . 

DO  33  JJ  =  1 ,3 

IF  (JD(JJ) . E  Q  .  0  )  GO  IQ  33 
DO  90  I  =N  1  .  N2 
DO  91  II  - I  .3 

if  (  iik  id  .:q.o;  go  to  91 

11  =  IDMT ( JO , ] J .  II) 

LL -0 

DO  93  L  =  1 , NLOC 

IF  ( IL.EQ.LOC(L) '  LL  -  L 

K  =  K  +  1 

ZF  (K)  =STkE:.  ■'  l.LL.MLI; 

IF  (  II.NE. 1 .OR.  I.CG.Ni  ■  GO  TO  vi 

IF  ( ID(3) .EG. 0.0k.  UK .  1) .EG.O  ■  GO  TO  01 

K  =  K-3 

ZP (K ) = (  ZP  (  K  )  +  ZP  >  i:  v  1  )  -3. 

CONTINUE 
CONTINUE 
I J  =  K  -  N  X  +  1 

IF  *  J  J . N  L . 1 . 0 k . J . L 0 .  1  i  GO  TO  93 
IF  (  J D  (  3 )  .  E if .  0 )  G C  TO  33 
K  =  K  -  2  *  N  X 
DO  93  K K  =  1 .NX 
K  =  Kf  1 

Z  P  (  K  )  =  (  Z  P  (  K  )  +  Z  P  i  K  +  N  X  )  >/2. 
continue’ 
continue 
do  1=1. nv 
]  1 = 1  +  ( i -1 ) An x 
iu=  i  1  ♦  n:-.- 1 
format  (  2  .: ,  1 0 o  1 1 .  4  > 
o  n  d  j  o 
RETURN 


V\\.  “w  *_  ^  -w' 


nj.'UYiu'i 


ir**  '.T  ['AT  A  for  '  Pf  tri.GCECZek  '  :  iiAff.  I  tip 
node  HI. [02/9023*:;  d.,l.m-  r.LLn  load:  5x3 


•j  .  0  ,  2. 0,4. 9 ,6. 0,8.0 


a  2  , 1  o 
’  lb.;-: 

}  -1,0 
1  0.2 
J  12 

1  3,6.12 
1  0.0.3. 

I  £1 L 
A  ill 
a  'Ll 
jKULT 
['MULZ 
ifdJTZ 
)  GLT 
[’  6  1.2 
1  GTZ 
:  A  L  i  L 
j  A  LIT 
l  ALE  2 
.-1 


.18,23,28,33,38 
0  ,  3 .0 , 6 .0 ,  1.0 
1  21.0E06 

l  1.7E06 

1  1.7E06 

1  0.3 

1  0.3 

l  0.5-1 

1  0.94E06 

1  0.94E06 

1  0.50E06 

1  0.2E-0G 

1  0  .  1  6  E  -  0  h 

1  0. 16E-0-1 


1.- 1  ,  in  -  r.ECn  load:  5x3x5  rtESH-man. inp  1 10/30/ s? 
type  ui  the  1  ..r  *  <  0  0ft  21) 

ftu.  o:  coord.  in  x,y  Iz  dir.,  ft  a  d .  ol  hole  a 
x  -  cccr-ui,  aU-s  '  R 3d .  =  9  (ii  o  3  r*  j 


t .  p ui  t r»ij  ?* ' 
ft G .  ill  coor-J.  in 
-  c  c  c  r  *  j  1 1 1  j  i.  c  -j 


*  j 

,  6 

* .  0 

!y  -  c 

or  •  j i  ft  j  l l* c 

c 

J 

.  1 

.0, 

1 .5,2.0 

!c  -  c 

!  uu  r  ‘i  i  n  i  t  *.  ‘i 

J  V  J 

0 

75. 

1 

*  i  r  o  ai 

o  'i  l*  ft  u  .  f  i*i  O 

al  temp.. to 

node 

no.  , 

,  i 

( •  c  r  f , 

'} 

A 

0, 
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. -0 . ja£-yj -y .l035d£-13  *32.000 


87.420 

-87.420 

0.10747E-12 

0.13189H-12 

0.00000£t00 

-Q.15610E-12 
58.264 
-58.284 
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0.41478E-12 
O.OOOOCEtOO 
— 0. 1 421 IE- 13 
179.58 
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325  NODE  U  0  u  £..  Fv  F: 

I,!-  . - . - - - - - - - 

33"  l  Q.OOOQQE+OO  0.1H27E-Q2  0.0006'.i..Gi>  g.OOOOOE-iO  0.1314SE-12  0 . OOOOuE*C-C* 

388  2  O.OOOOOE+OO  0 -38G&4E-03-0 . 2227CE-C3  0 .0O0OOE*0O-O.71O54E-13->). 43J738E-1 3 

33)  3  0 . OOOOOE+OO  0.00000E>00-0.  id?75E-03  O.OOOOOE+OO  -1248.7  -12.3-10 

300  1  0 . OOOOOE+OO  Q.QOOOGE»GO-0.4U7?9E-63  O.uOOOOE+OO  -5360.1  12.640 

331  5  0. OOOOOE+OO  O.OGG0OE*O0-G.71327E-02  G. OOOOOE+OO  O.OOOQOE+OO-O. 14211E-12 

302  6  0. OOOOOE+OO  0.OOOCOE+9O-O.937&7E-03  0. OOOOOE+OO  O.OOOQQE+CO-O. 1421 1E-L2 

j 03  7-Q.51868E-04  0.11422E-02  0.00oo0ErC0-0.U546E-13  0.29132E-12  G.OOOOOE+Oo 

394  8-0.50283E-04  Q.&s797E-03-0.22aa3E-03-0.14211E-i3-0.-?4147£-13-0.l350gE-12 

hj  9-0.51137E-04  0.000oCEt00-0.4ddl0E-gj  17.087  -2504.5  2.0581 

296  10-0.51137E-04  O.OOOOuE+OO-OnOdl'Jt-Oj  -17.067  -10707.  -2.0581 

307  ll-0.5%47E-04  O.OOOOOE+O0-O.71-)55E-Oi-0.42633E-13  O.OOOOOE+OO-0 .3268SE-12 

300  13-0.64550E-04  Q.00O0GE»oQ-O.34242£-:3-0.3908OE-13  0. OOOOOE+OO  0.14211E-13 

399  13-0.99390E-04  0.11508E-02  0.00im)E+0u-0.35527E-H  0.14655E-12  0. OOOOOE+OO 

■100  14-0.10816E-03  0 . 89353E-03-0 - 2 1 76BE-03  0.25265E-13-0.16165E-12-0.3623SE-12 

■•01  1 5-0.93351E-04  O.00g00£*00-Q.44JQ4E-03  2b. 245  -2539.3  36.102 

■102  16-0.93351E-04  0.00000£m)0-0.44204E-03  -26.245  -10727.  -36.102 

•103  17-0.61080E-04  0.00000£+00-0.u5071E-03-0.35527E-13  Q.OOQOOE+OQ-Q.B5265E-12 

■104  13-0.63022E-04  0.00OOOE+0O-0.909i3E-03-0.21316E-13  0. OOOOOE+OO  0.42633E-13 

•105  19-0.12074E-03  0.U892E-02  O.OOOOOE+OO  0.33307E-13-0.93259E-14  O.OOOOOL+OO 

106  20-0.12E96E-03  0.91702E-03-0.34279E-03-0.66613E-13  0.77272E-13  0.42633E-13 

•107  21-0.20197E-03  0.000O0E+00-0.717d6E-i>3  -539.53  -2567.7  -622.07 

K’3  22-0.20197E-03  0 . oOOOO t  >00-0 . 7 1706E- 03  569.53  -8701.9  622.07 

409  23  0.42192E-04  0.O00O0E+00-0.96327L-0J  0.35527E-13  0.90000E+00-0.3694BE-12 

•HO  24  0.44164E-03  O.OOOOOE+OG-0.12639E-02  0.M566E-12  O.OOOOOE+OO-O.4121  IE-12 

•HI  2j-0. 122b8E-03  0.1419VE-02  O.OOOOOE+00  0.24425E-13-0.93259E-14  0.00000E+00 

4 12  26-0.13222E-03  0.1U43E-02-0.22936E-03-0.54622E-13  0.58620E-13  0.42633E-13 

s13  27-0.17153E-03  O.OOOOOEruO-Q.515iME-o3  0.71054E-13  -1369.0  -0.85265E-13 

H  i  26-0.14222E-02  0.34£05E-'j2-0.50?37E-02  0.1M34E-13  0.24158E-12  0.82423E-12 

•U5  29-0.33165E-03  O.O0OOOEtOO-O.4931CiE-O2-J.l5632E-12  C.OOOO0E+OO-0.312C4E-12 

■H  ■  25  0.52385E-03  O.0OOOgE*O0-0.5O311E-O2  O.OOOOCE+OO  O.OOOOOE+OO-'). 2S422E-1 2 

•IP  21  O.OOOOOE+OO  0.3067t)E-02  0.Ogg00E+g0  O.OOOOOE+OO  0.38192E-13  O.OOOOOE+OO 

ill  22  O.OOOOOE+OO  0. 305131-02*0. 12176E-03  0 . l-OOOOE *00-0 . 27001E- 12-0.191 95E - 1 2 

119  22  O.OoOOOE+OO  0.3g742E-02-0.41u4?E-g3  O.OOOOOE+OO  -433.15  -54.412 

I.!  34  O.OOOOOE+OO  0.30742E-02-0.41C47E-03  O.GOoOOE+OO  433.15  54.412 

■121  35  O.OOOOOE+OO  0.30174E-02-0.64459C-03  O.OOOOOE+OO  0.80291E-12-0.56343E-13 

122  36  O.OOOOOE+OO  0.200uCE-Q2-Q.SL80lE-v3  O.OOOOOE+OO  0.73758E-12-0.24158E-12 

•12]  37-0.89885E-04  0.30g25E-02  O.GOOOOEtg-j  0.29030E-13  0.21139E-12  O.OOOOOE+OO 

124  3C-0.90917E-04  0.3047c,E-02-0.lfau7?E-j3  0.24869E-13  0.47606E-12-0.52580E-12 

■1.5  .24-0.9O673E-O4  0.30760E-02-0.4Hu6E-03  13.308  -369.22  -93.926 

02  40-0.90673E-04  0.30760E-Q2-0.4U06E-03  -18.208  369.22  33.926 

■127  -U-0.87783E-04  Q.301suE-Q2-Q. 642906-03-0. 11724E-12  0.30838E-U-0.92371E-12 

426  42-0.87973E-Q4  0 ,300a3E-02-0 .86o63E-y i-0 . 48738E- 13  C.39568E-12-0.16474E-12 

42+  43-0.17498E-03  0.3Q748E-02  Q.OOOOOE-gO  0.33439C-13-0.26645E-12  O.OOOOOE+OO 

430  44-0, 1E387E-03  0.30516E-02-0.16576E-03  0.31619E-12  0. 13673C-12-0.33134E-12 

4 31  45-0. 18970E-03  0.30600E-02-0.41937E-C3  -32.290  -960.13  -121.99 

<22  16-0. 18970E-03  0.30GOOE-02-0.41967E-03  32. 2 '9  960.12  121.99 
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4?-0.1827j£-u3  U.juOl-E-uE- 
46-Q.17762E-03  0.300316-02- 

49- 0.24254E-03  Q.321a3£-02 

50- Q.26493E-03  0.3lWsE-u2- 

51- 0.329Q6E-03  0.31915E-u_- 

52- 0.32906E-03  0.319156-02- 

53- 0.36051E-03  G.3uG196-02- 

54- O.37399E-03  0.23ul2E-m1- 

55- 0.3Q335E-C3  0.33«»iE-«:- 

56- 0.32779E-03  0.3377cl-u2- 
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5O-Q.67716E-03  0.3207 36-42 
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04  O.OOOOOEtOO  O.ofluuGt-.u 
65  O.OOOOOEtOO  Q.6u0uu£-u2 
00  O.OOOOOEtOO  0.000000'uJ 
o7-0. 10239E-03  0.600uvc-42 

68- 0.104806*03  O.oOOuOE'02 

69- 0.10772E-03  Q.60OOu£-O2 

70- 0.10772E-03  O.EOOuuE-o: 
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73- Q . lSbSlE— 03  O.OOOOuC-U- 

74- 0.20703E-03  O.oOOuOE-ul 

75- Q.22297E-03  Q.6OO0u£-u. 

76- 0.22297E-03  O.OQOOOE-u: 

77- 0.24100E-03  Q.GQOuuG-C. 

78- 0.24622E-O3  0.6000o£-4. 

79- 0.274808-03  O.OOOuuE-.. 
6Q-0.23576E-O3  O.uOuuul-u. 

81- Q.343Q3E-03  O.OOOuuE-'.! 
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83- 0.42417E-O3  O.OuuuOE-u. 
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89- 0.317G0E-03  O.buuwjE-v. 
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-v.lv.:ul-.j-..-22i.2E-13  0.9j?92E-12-Q.63949E-12 
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-u.iii'juE -u3  -/bj.wd  -808.38  -347.83 

ii'j-.xi.  "uj  .  wJ.lO  808.58  347.85 

:-j.u7«92l-0j-0.1'}240E"13  0.20961E-12  Q.2415BE-12 
-u.j-.u3VE-u3  u..aa45E-l4  0. 18332E-U-0.36948E-12 
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a.juuOwEtOO  --’418.0  82.808 
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j'0.33-i47E-uj  J.Jv/uuUEtOO  32.000  0.11389E-12 

2  O.uwOvuE'uO  0.71054E-14  32.000  O.OOOOOEtOO 

2'O.2j221E-j3-u.02949E-13  48.000  -0.341Q8E-12 
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'2-9.5444uE-u3  39.615  4832.0  -100.92 
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2  ‘j.OuvUuEtyU  U.33Jo7E-13  -16.000  0.000008*00 
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.-u.VuuyuE-Gu  u.l24bbE-13  80.000  0.33573E-12 

':-u.j773lt-02-u.4l744E-13  16.000  0.22826E-12 
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-2-0.iu771E-o2-0.l0u5uE-12  O.OOCOOEtOO-0.2931CE-13 
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4J9  1  O.OOOOOE+OO  3.1H79E-02  O.OGOuOEnw  O.uOOOOE-OO  0.47513E-13  0.00000E»00 

300  2  Q.OOQOQE+QQ  0.6B565E-03-0.22313E-03  0.U0000E+00-0.i??64E-I2-0.ll369E-i2 

201  3  0 . OOOOOE+OO  0.Q000QE+00-0.4094C'E-0'J  O.OOOOOE+OO  -1257.5  19.659 

202  A  0. 00000E+00  O.00Q00E+QO-0.48940E-O3  O.OOOOOE+OO  -5347. 2  -19.659 

203  2  O.OOOOOE+OO  0.00000E+00-0.72839E-03  O.OOOOOE+OO  0. OOOOOE+OO-O. 39476E-13 

204  6  O.OOOOOE+OO  0. OOOOOE+OO-O. 95139E-93  O.OOOOOE+OO  0 . OOOOOE+OO-O . 1 1369E - 12 

305  7-0.43660E-04  0.11561E-02  O.GOOOOEtOQ  0.14211E-13  0.11102E-12  0.00000E+00 

506  3-0.51390E-04  Q.89754E-Q3-Q.21430E-O3  0.35527E-14  0.22560E-12-0.16342E-12 

207  9-0.26748E-04  O.OOQOOEtOO-O.432?2E-03  35.531  -2546.6  77.612 

208  10-0.26748E-04  0. OOOOOE+OO-O. 43272E-03  -95.531  -10733.  -77.612 

509  11  0.24131E-04  0.000Q0E+00-0.64u42E-03-0.49?38E-13  O.OOOOOE+OO  0.95265E-13 

210  12  0.17142E-04  O.0OO0OE+OO-0.9024JE-OJ-O. 10G58E-13  0. OOOOOE+OO-O. 56843E- 13 

211  13-0.66606E-04  0.11865E-02  O.OOOOOE+CO-0.91432E-13  0.58620E-13  O.OOOOOE+OO 

212  14-0.66621E-04  0.91686E-03-0.34559E-03  O.OOOOOE+OO  0.17764E-14-Q.19185E-12 

213  12-0.14Q33E-03  0. OOOOOE+OO-O. 72966E-03  -b06.80  -2564.5  -666.75 

514  16-0.14033E-03  0. OOOOOE+OO-O. 72966E-03  606.30  -9013.7  666.75 

515  17  0.17186E-03  O.0OOOOE+OO-0.10O19E-G2-0.174O8E-12  0. OOOOOE+OO-O. 48317E-12 

516  18  0.67653E-03  0.O0000EtO0-0.129uOE-0:-0.1350OE-12  O.OOOOOE+OO  0.21316E-12 

517  13-0.84B55E-04  0.13738E-02  O.OOOOOE+OO  0.39080E-13  0.36415E-12  O.OOOOOE+OO 

316  20-0.76202E-04  0.10742E-02-0.2j259£-Oj-0.17764E-13-0.22915E-12  0.24158E-12 

219  21-0.70549E-04  O.OOOOOE+00-0.51319E-G3-0.2931QE-13  -2779.4  -0.10658E-12 

520  22-0.13701E-02  0.32522E-02-0.57535E-02  0.14211E-13  0.21974E-12-0.10232E-11 

521  22-0.22838E-Q3  0. OOOOOE+OO-O. 56503E-02-0.55422E-12  0. OOOOOE+OO-O. 26432E-11 

222  21  0. 69570E-03  0. OOOOOE+OO-O. 57034E-02 -0 . 71 054E- 1 4  O.OOOOOE+OO  0.36380E-11 

223  22-0.11507E-03  0.14984E-02  O.OOuOOEtOG  0.29921E-13  0.47962E-13  O.OOOOOE+CO 

224  26-V.12382E-02  0 . 1 1 604E-02-0 . 27357E-03 -0 . 30706E- 1 3  0.27303E-13  0.11269E-12 

225  2”-0,150b7E-03  0.0OO00E.00-0.6023LE-G3  0.10125E-12  -1498.4  -G.71054E-13 

32b  28-0. 16199E-Q2  0.28741E-02-0.88828E-02  0.67502E-13  0.29843E-12  0.63212E-12 

527  29-0.1 07 13E-02  0. OOOOOE+OO-O. 39213E-02  0.14211E-13  0. OOOOOE+OO-O. 41496E-11 

52b  50-0.25968E-03  0.00099E+00-O.B9224E-02  0.33790E-12  O.OOOOOE+OO  0.39127E-11 

229  31  O.OOOOOE+OO  0.30223E-02  O.OOOOOE+OO  O.OOOOOE+OO  0.26823E-12  O.OOOOOE+OO 

23C  22  O.OOOOOE+OO  Q.30423E-02-Q.1?831E-03  0. OOOOOE+OO-O. 17941E-12-0. 49027E-12 

231  33  O.OOOOOE+OO  0.30750E-02-0.411UE-03  O.OOOOOE+OO  -433.39  -31.994 

232  34  Q.OQOOOE+OO  0.30750E-02-0.4U12E-03  O.OOOOOE+OO  433.39  31.994 

233  32  O.OOOOOE+OO  0.30139E-02-0.64004E-03  O.OOOOOE+OO  0.21174E-11  0.42633E-13 

224  36  O.OOOOOE+OO  0.30082E-02-0.86547E-03  O.OOOOOE+OO  0.21272E-12-0.32685E-12 

232  37-0.93072E-04  0.30743E-Q2  O.OOOOOE+OO  0.39000E-13-0.24336E-12  O.OOOOOE+OO 

53b  39-0.97256E-04  0.30510E-02-0. 18087E-03  Q.10481E-12  0.44754E-12-0.67502E-12 

237  39-0.96425E-04  Q.30616E-02-0.41379E-03  79.602  -958.20  -46.263 

233  40-0.96425E-04  0.30616E-02-0.41379E-03  -79.605  958.20  46.563 

239  41-0.83123E-04  0.30059E-02-0.63399E-03-0.85265E-13  0.14992E-11-0.13474E-12 

544  42-0.77701E-04  0.30000E-02-0.86052E-030. 15987E-13  0.13709E-11-0.46896E-13 


ii-  r 


541  43-0.17673E-03  0.32260E-62  O.Ov.w.-vE«w«-w. i5?:i£-i2-0.25580E-12  O.OOOOOEtOO 

542  44-0 •  19037E-03  0.32Q62E-02-0. Uj22EVJ  o.5ul2l£-13  0.590a6E-i:-0.4lcj22E-12 

543  45-0.22271E-03  0.318b6E-02-0.422ul.E-o'J  -579.u2  -319.24  -408.11 
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